! { dg-do compile } ! { dg-options "-fdec-structure -fno-dec-structure" } ! ! PR fortran/87919 ! ! Should fail to compile with -fdec-structure and -fno-dec-structure. ! ! Contributed by Mark Eggleston ! include 'dec_structure_1.f90' ! { dg-error "-fdec-structure" " " { target *-*-* } 14 } ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 19 } ! { dg-error "-fdec-structure" " " { target *-*-* } 21 } ! { dg-error "-fdec-structure" " " { target *-*-* } 22 } ! { dg-error "is not a variable" " " { target *-*-* } 30 } ! { dg-error "Bad character" " " { target *-*-* } 32 } ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 34 } ! { dg-error "Bad character" " " { target *-*-* } 36 } ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 38 } ! { dg-error "Bad character" " " { target *-*-* } 40 } ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 42 } ! { dg-error "Bad character" " " { target *-*-* } 44 } ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 46 } ! { dg-error "Bad character" " " { target *-*-* } 48 } ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 50 } ! { dg-error "Bad character" " " { target *-*-* } 52 } ! { dg-error "Expecting END PROGRAM" " " { target *-*-* } 54 } ! { dg-error "function result" " " { target *-*-* } 29 }