! { 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') STOP 1 | |
write(str,*) parm | |
if(str /= ' xo yo ag xr yr') STOP 2 | |
end subroutine SR | |
end Module BUG3 | |
! | |
program TEST | |
use bug3 | |
call sr | |
end program TEST |