gcc/testsuite/gfortran.dg/dec_structure_27.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdec-structure -fno-dec-structure" }
   3 !
   4 ! PR fortran/87919
   5 !
   6 ! Should fail to compile with -fdec-structure and -fno-dec-structure.
   7 !
   8 ! Contributed by Mark Eggleston <mark.eggleston@codethink.com>
   9 !
  10
  11 include 'dec_structure_1.f90'
  12
  13 ! { dg-error "-fdec-structure" " " { target *-*-* } 14 }
  14 ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 19 }
  15 ! { dg-error "-fdec-structure" " " { target *-*-* } 21 }
  16 ! { dg-error "-fdec-structure" " " { target *-*-* } 22 }
  17 ! { dg-error "is not a variable" " " { target *-*-* } 30 }
  18 ! { dg-error "Bad character" " " { target *-*-* } 32 }
  19 ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 34 }
  20 ! { dg-error "Bad character" " " { target *-*-* } 36 }
  21 ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 38 }
  22 ! { dg-error "Bad character" " " { target *-*-* } 40 }
  23 ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 42 }
  24 ! { dg-error "Bad character" " " { target *-*-* } 44 }
  25 ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 46 }
  26 ! { dg-error "Bad character" " " { target *-*-* } 48 }
  27 ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 50 }
  28 ! { dg-error "Bad character" " " { target *-*-* } 52 }
  29 ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 54 }
  30 ! { dg-error "function result" " " { target *-*-* } 29 }