| ! { dg-do compile } | |
| ! PR fortran/103259 - ICE in resolve_common_vars | |
| ! Contributed by G.Steinmetz | |
| module m | |
| integer :: p | |
| common /c/ p | |
| end | |
| program p ! { dg-error "cannot appear in a COMMON block" } | |
| use m ! { dg-error "is also the name of the current program unit" } | |
| end |