gcc/testsuite/gfortran.dg/dec_io_7.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdec -fno-dec" }
   3 !
   4 ! PR fortran/87919
   5 !
   6 ! Make sure -fno-dec rejects -fdec I/O specifiers as with dec_io_1.
   7 !
   8
   9 include 'dec_io_1.f90'
  10
  11 ! { dg-error "is a DEC extension" "" { target *-*-* } 12 }
  12 ! { dg-error "is a DEC extension" "" { target *-*-* } 24 }
  13 ! { dg-error "is a DEC extension" "" { target *-*-* } 58 }
  14 ! { dg-error "is a DEC extension" "" { target *-*-* } 64 }
  15 ! { dg-error "is a DEC extension" "" { target *-*-* } 68 }
  16 ! { dg-error "is a DEC extension" "" { target *-*-* } 74 }
  17 ! { dg-error "is a DEC extension" "" { target *-*-* } 78 }
  18 ! { dg-error "is a DEC extension" "" { target *-*-* } 84 }
  19 ! { dg-error "is a DEC extension" "" { target *-*-* } 90 }
  20 ! { dg-error "is a DEC extension" "" { target *-*-* } 96 }