blob: 53bc1475834391da1aeb43444fa7c3a7767d4a37 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { 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
|
