gcc/testsuite/gfortran.dg/dec_type_print_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdec -fno-dec" }
   3 !
   4 ! PR fortran/87919
   5 !
   6 ! Ensure that -fno-dec disables the usage of TYPE as an alias for PRINT.
   7 !
   8
   9 include 'dec_type_print.f90'
  10
  11 ! { dg-error "Invalid character in name" "" { target *-*-* } 52 }
  12 ! { dg-error "Invalid character in name" "" { target *-*-* } 53 }
  13 ! { dg-error "Invalid character in name" "" { target *-*-* } 54 }
  14 ! { dg-error "Invalid character in name" "" { target *-*-* } 55 }
  15 ! { dg-error "Invalid character in name" "" { target *-*-* } 56 }
  16 ! { dg-error "Invalid character in name" "" { target *-*-* } 57 }
  17 ! { dg-error "Invalid character in name" "" { target *-*-* } 58 }
  18 ! { dg-error "Unclassifiable statement" "" { target *-*-* } 59 }
  19 ! { dg-error "conflicts with PROCEDURE" "" { target *-*-* } 60 }
  20 ! { dg-error "Cannot assign to a named constant" "" { target *-*-* } 80 }
  21