https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77667
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
Variants with a type mismatch give a suboptimal error message :
$ cat z2.f90
program p
type t
integer :: a
integer, pointer :: b
end type
type(t) :: x
data x /t(4, f())/
print *, x%a, associated(x%b)
end
$ cat z3.f90
program p
type t
integer :: a
logical, pointer :: b
end type
type(t) :: x
data x /t(4, f())/
print *, x%a, associated(x%b)
end
$ gfortran-7-20160918 z3.f90
z3.f90:9:0:
end
Error: initializer for floating value is not a floating constant
