[Bug fortran/87994] ICE in match_data_constant, at fortran/decl.c:399

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87994

--- Comment #7 from kargl at gcc dot gnu.org ---
(In reply to Dominique d'Humieres from comment #6)
> AFAICT the patch in comment 5 fixes the tests in comments 1 and 5, but not
> the test in comment 0.

% cat a.f90
program p
   real :: a, b
   data b /a%kind/
   print *, b
end

% gfcx -o z a.f90 && ./z
   4.00000000