gcc/testsuite/gfortran.dg/pr93792.f90

   1 ! { dg-do compile }
   2 ! Original test case by Gernhard Steinmetz.
   3
   4 module m
   5    type t(n)
   6       integer, len :: n = z'1'
   7    end type
   8 end
   9 program p
  10    use m
  11    type(t(:)), allocatable :: z
  12 end
  13
  14 ! { dg-error "Parameterized type 't' does not have a component"  " " { target *-*-* } 5 }
  15 ! { dg-error "BOZ literal constant at .1. cannot appear"  " " { target *-*-* } 6 }
  16 ! { dg-error "Cannot open module file"  " " { target *-*-* } 10 }
  17 ! { dg-prune-output "compilation terminated" }