gcc/testsuite/gfortran.dg/pr108527.f90


1
2
3
4
5
6
7
8
9
10

! { dg-do compile }
! PR fortran/108527 - ICE in compare_bound_int
! Contributed by G.Steinmetz

program p
  integer, parameter :: a((2.)) = [4,8] ! { dg-error "must be of INTEGER type" }
  integer(a(1:1)) :: b                  ! { dg-error "Unclassifiable statement" }
end

! { dg-prune-output "Parameter array" }