https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93482
kargl at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |kargl at gcc dot gnu.org --- Comment #4 from kargl at gcc dot gnu.org --- Here is z1.f90 converted to a suitable testcase. ! { dg-do run } program p if (size([[character::]]) /= 0) stop 1 end Here is z2.f90 converted to a suitable testcase. ! { dg-do run } program p integer :: i character, parameter :: c(0) = 'a' if (size([[c]]) /= 0) stop 1 if (size([[('b',i=1,0)]]) /= 0) stop 2 end