blob: 84287b475a5f2398a0082c6a21aea3260f771fbb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
! { dg-options "-ffrontend-optimize" }
!
! PR fortran/60341
! An unguarded union access was wrongly enabling a frontend optimization on a
! string comparison, leading to an ICE.
!
! Original testcase from Steve Chapel <steve.chapel@a2pg.com>.
! Reduced by Steven G. Kargl <kargl@gcc.gnu.org>.
!
subroutine modelg(ncm)
implicit none
integer, parameter :: pc = 30, pm = pc - 1
integer i
character*4 catt(pm,2)
integer ncm,iatt(pm,pc)
do i=1,ncm
if (catt(i,1)//catt(i,2).eq.'central') exit
end do
iatt(i,4)=1
end
|
