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 11include '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 } 31