gcc/testsuite/gfortran.dg/parameter_array_init_6.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/44742
   4 !
   5 ! Test case based on Juergen Reuter's and reduced by
   6 ! Janus Weil.
   7 !
   8 ! The program creates a large array constructor, which
   9 ! exceeds -fmax-array-constructor - and caused an ICE.
  10 !
  11
  12 module proc8
  13   implicit none
  14   integer, parameter :: N = 256
  15   logical, dimension(N**2), parameter :: A = .false.
  16   logical, dimension(N,N), parameter :: B &
  17     = reshape ( (/ A /), (/ N, N /) ) ! { dg-error "array constructor at .1. requires an increase" }
  18 end module