17 lines
448 B
Fortran
17 lines
448 B
Fortran
! { dg-do run }
|
|
! { dg-options "-O0" }
|
|
!
|
|
! Tests fix for PR21459 - This is the original example.
|
|
!
|
|
program format_string
|
|
implicit none
|
|
character(len=*), parameter :: rform='(F15.5)', &
|
|
cform="(' (', F15.5, ',' F15.5, ') ')"
|
|
call print_a_number(cform)
|
|
contains
|
|
subroutine print_a_number(style)
|
|
character(len=*) :: style
|
|
write(*, style) cmplx(42.0, 99.0) ! { dg-output "99.00000" }
|
|
end subroutine print_a_number
|
|
end program format_string
|