--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/gfortran.dg/pr78240.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -0,0 +1,16 @@
+! { dg-do compile }
+! { dg-options "-w" }
+!
+! PR fortran/78240
+!
+! Test a regression where an ICE occurred by passing an invalid reference
+! to the error handling routine for non-constant array-specs in DATA list
+! initializers.
+!
+! Error message update with patch for PR fortran/83633
+!
+program p
+  integer x(n)    /1/   ! { dg-error "array with nonconstant bounds" }
+end
+! { dg-prune-output "module or main program" }
+! { dg-prune-output "Nonconstant array" }