! { dg-do compile } | |
! { dg-options "-std=f95" } | |
! PR fortran/107559 - ICE in resolve_equivalence | |
! Contributed by G.Steinmetz | |
module m | |
implicit none | |
integer, protected :: a ! { dg-error "Fortran 2003: PROTECTED attribute" } | |
integer :: b | |
equivalence (a, b) ! { dg-error "has no IMPLICIT type" } | |
end |