Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dec_structure_24.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR fortran/87919 ! ! Should fail to compile without the -fdec or -fdec-structure options. ! ! Contributed by Mark Eggleston <mark.eggleston@codethink.com> 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 }