view gcc/testsuite/gfortran.dg/pr93792.f90 @ 19:2b5abeee2509 default tip

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
line wrap: on
line source

! { dg-do compile }
! Original test case by Gernhard Steinmetz.

module m
   type t(n)
      integer, len :: n = z'1'
   end type
end
program p
   use m
   type(t(:)), allocatable :: z
end

! { dg-error "Parameterized type 't' does not have a component"  " " { target *-*-* } 5 }
! { dg-error "BOZ literal constant at .1. cannot appear"  " " { target *-*-* } 6 }
! { dg-error "Cannot open module file"  " " { target *-*-* } 10 }
! { dg-excess-errors "compilation terminated" }