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