[Bug fortran/77680] [6/7/8 Regression] [F03] ICE in ctor_for_folding, at varpool.c:419

[tkoenig at gcc dot gnu.org]

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

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
                 CC|                            |tkoenig at gcc dot gnu.org
         Resolution|---                         |FIXED

--- Comment #4 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
This is now correctly rejected:

ig25@flaemmli:/tmp> cat d.f90 
program p
   bind(c) :: x
   call s(x)
end
ig25@flaemmli:/tmp> gfortran d.f90 
d.f90:2:15:

    bind(c) :: x
               1
Error: Variable ‘x’ at (1) cannot be BIND(C) because it is neither a COMMON
block nor declared at the module level scope

Closing.