https://gcc.gnu.org/bugzilla/show_bug.cgi?id=124208
--- Comment #3 from David Binderman <dcb314 at hotmail dot com> ---
>From the same test suite, here are a couple of other F90
files which crash in the same place.
These might well be duplicates or slight variations.
fujitsu $ more trunk/Fortran/0246/0246_0042.f90
PROGRAM MAIN
IMPLICIT NONE
INTEGER :: K,L,M,X,K2
INTEGER :: arr(5)
X=0
K=10
L=30
K2=10
arr=(/ 1,2,3,4,5 /)
DO CONCURRENT(K=1:5,arr(K)>=2)
IF(arr(K)==2 .OR. arr(K)==4) THEN
ASSOCIATE (val=> arr(K))
DO CONCURRENT(K2=val:5,val>=4)
X=X+K2
END DO
END ASSOCIATE
Do CONCURRENT(L=2:arr(K)+1,K<5)
ASSOCIATE(val => arr(L))
IF(val==4) THEN
DO CONCURRENT(M=3:val)
X=X+4
END DO
ELSE
X=X+3
END IF
END ASSOCIATE
END DO
ELSE
X=X+1
END IF
END DO
IF (X==34 .AND. K==10 .AND. L==30) THEN
Print *,"PASS"
ELSE
Print *,"FAIL",X
END IF
END PROGRAM
fujitsu $ more trunk/Fortran/0251/0251_0079.f90
integer::ii,pp(10),qq(10)
ii=100
block
integer :: ii
ii=200
if(ii/=200) print*,101
do concurrent(ii=1:10)
block
Integer :: ii
ii=2
if(ii/=2) print*,104,ii
do concurrent(ii=1:10)
block
integer :: t=2
pp(ii) = ii+t
end block
print*,'value of inner: ',ii
end do
if(ii/=2) print*,105,ii
end block
qq(ii) = ii
end do
if(ii/=200) print*,102,ii
end block
if(ii/=100) print*,103,ii
print*,pp
print*,qq
end
fujitsu $
