2 ! Test fix for regression caused by
3 ! 2006-06-23 Steven G. Kargl <kargls@comcast.net>
5 ! * match.c (gfc_match_if): Handle errors in assignment in simple if.
11 integer, parameter :: n
= 2
12 if (i
.eq
. 0) read(j
,*) k
13 if (i
.eq
. 0) n
= j
! { dg-error "Named constant 'n' in variable definition context" }