gcc/testsuite/gfortran.dg/pr107559.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 ! PR fortran/107559 - ICE in resolve_equivalence
   4 ! Contributed by G.Steinmetz
   5
   6 module m
   7   implicit none
   8   integer, protected :: a ! { dg-error "Fortran 2003: PROTECTED attribute" }
   9   integer :: b
  10   equivalence (a, b)      ! { dg-error "has no IMPLICIT type" }
  11 end