blob: e2009a5bfdbe344253c0ec51a2dedd5c915a3b05 (
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 compile }
! PR fortran/67804 - ICE on bad type in structure constructor in DATA statement
! Contributed by G.Steinmetz
program p
type t
character :: c
end type
type u
character, pointer :: c
end type
type(t) :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9
type(u) :: y6
data x0 /t('a')/ ! OK
data x1 /t(1)/ ! { dg-error "Cannot convert" }
data x2 /t(1.)/ ! { dg-error "Cannot convert" }
data x3 /t(1d1)/ ! { dg-error "Cannot convert" }
data x4 /t((0.,1.))/ ! { dg-error "Cannot convert" }
data x5 /t(.true.)/ ! { dg-error "Cannot convert" }
data x6 /t(null())/ ! { dg-error "neither a POINTER nor ALLOCATABLE" }
data x7 /t(['1'])/ ! { dg-error "The rank of the element" }
data x8 /t([1])/ ! { dg-error "Cannot convert" }
data x9 /t(z'0')/ ! { dg-error "Cannot convert" }
data y6 /u(null())/ ! OK
end
|
