1! { dg-do run }
2!
3! PR fortran/41515
4! Contributed by ros@rzg.mpg.de.
5!
6! Before, the "parm' string array was never initialized.
7!
8Module BUG3
9contains
10    Subroutine SR
11    character(3)   :: parm(5)
12    character(20)  :: str
13    parameter(parm=(/'xo ','yo ','ag ','xr ','yr '/))
14
15    str =    'XXXXXXXXXXXXXXXXXXXX'
16    if(str /='XXXXXXXXXXXXXXXXXXXX') call abort()
17    write(str,*) parm
18    if(str /= ' xo yo ag xr yr') call abort()
19    end subroutine SR
20end Module BUG3
21!
22program TEST
23    use bug3
24    call sr
25end program TEST
26