gomp-20050608-branch/gcc/testsuite/gfortran.dg/equiv_2.f90

   1       subroutine broken_equiv1
   2       character*4 h
   3       character*3 i
   4       equivalence (h(1:3), i(2:1))      ! { dg-error "has length zero" }
   5       end subroutine
   6
   7       subroutine broken_equiv2
   8       character*4 j
   9       character*2 k
  10       equivalence (j(2:3), k(1:5))      ! { dg-error "out of bounds" }
  11       end subroutine
  12
  13       subroutine broken_equiv3
  14       character*4 l
  15       character*2 m
  16       equivalence (l(2:3:4), m(1:2))    ! { dg-error "\[Ss\]yntax error" }
  17       end subroutine