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