comparison gcc/testsuite/gfortran.dg/pr78240.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 ! { dg-do compile }
2 ! { dg-options "-w" }
3 !
4 ! PR fortran/78240
5 !
6 ! Test a regression where an ICE occurred by passing an invalid reference
7 ! to the error handling routine for non-constant array-specs in DATA list
8 ! initializers.
9 !
10 ! Error message update with patch for PR fortran/83633
11 !
12 program p
13 integer x(n) /1/ ! { dg-error "array with nonconstant bounds" }
14 end
15 ! { dg-prune-output "module or main program" }
16 ! { dg-prune-output "Nonconstant array" }