gcc/testsuite/gfortran.dg/pr93499.f90


1
2
3
4
5
6
7
8
9
10

! { dg-do compile }
! PR 93499 - this used to ICE. Original test case by Gerhard Steinmetz.

program p
  integer :: a((0.)/0)  ! { dg-error "must be constant of INTEGER type" }
  type t(n)
     integer, len :: n
  end type t
  type(t((0)/0))  :: x  ! { dg-error "does not simplify to an INTEGER constant" }
end