gcc/testsuite/gfortran.dg/error_recovery_2.f90

   1 ! { dg-do compile }
   2 ! PR27954 Internal compiler error on bad statements
   3 ! Derived from test case submitted in PR.
   4 subroutine bad1
   5   character*20 :: y, x 00  ! { dg-error "Syntax error" }
   6   data  y /'abcdef'/, x /'jbnhjk'/ pp  ! { dg-error "Syntax error" }
   7 end subroutine bad1
   8
   9 subroutine bad2
  10   character*20 :: y, x 00  ! { dg-error "Syntax error" }
  11   data  y /'abcdef'/, x /'jbnhjk'/ pp  ! { dg-error "Syntax error" }
  12   print *, "basket case."
  13 end subroutine bad2
  14
  15 subroutine bad3
  16   implicit none
  17   character*20 :: y, x 00  ! { dg-error "Syntax error" }
  18   data  y /'abcdef'/, x /'jbnhjk'/ pp  ! { dg-error "Syntax error" }
  19   print *, "basket case that segfaults without patch."
  20 end subroutine bad3
  21