blob: 49bca6609315fbdfc905b7f2df76c166224a411e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do run }
! PR fortran/51434
module foo
implicit none
integer, parameter :: n = 5
character(len=1), parameter :: s(n) = 'a'
type :: a
integer :: m = n
character(len=1):: t(n) = transfer('abcde', s)
end type a
end module foo
program bar
use foo
implicit none
type(a) c
if (c%m /= n) stop 1
if (any(c%t /= ['a', 'b', 'c', 'd', 'e'])) stop 2
end program bar
|