27 lines
572 B
Fortran
27 lines
572 B
Fortran
! { dg-do run }
|
|
!
|
|
! PR fortran/41515
|
|
! Contributed by ros@rzg.mpg.de.
|
|
!
|
|
! Before, the "parm' string array was never initialized.
|
|
!
|
|
Module BUG3
|
|
contains
|
|
Subroutine SR
|
|
character(3) :: parm(5)
|
|
character(20) :: str
|
|
parameter(parm=(/'xo ','yo ','ag ','xr ','yr '/))
|
|
|
|
str = 'XXXXXXXXXXXXXXXXXXXX'
|
|
if(str /='XXXXXXXXXXXXXXXXXXXX') call abort()
|
|
write(str,*) parm
|
|
if(str /= ' xo yo ag xr yr') call abort()
|
|
end subroutine SR
|
|
end Module BUG3
|
|
!
|
|
program TEST
|
|
use bug3
|
|
call sr
|
|
end program TEST
|
|
! { dg-final { cleanup-modules "bug3" } }
|