https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67817
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
More examples analogous to z1.f90 :
$ cat z4.f90
program p
type t
complex :: a
end type
type(t) :: x6, x8
data x6 /t(.true.)/
data x8 /t('1')/
end
$ cat z5.f90
program p
type t
integer :: a
end type
type(t) :: x6, x8
data x6 /t(.true.)/
data x8 /t('1')/
end
$ cat z6.f90
program p
type t
logical :: a
end type
type(t) :: x1, x2, x3, x4, x8
data x1 /t(1)/
data x2 /t(1.)/
data x3 /t(1d0)/
data x4 /t((0.,1.))/
data x8 /t('1')/
print *, x1
print *, x2
print *, x3
print *, x4
print *, x8
end
