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