gcc/testsuite/gfortran.dg/graphite/pr41924.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-options "-O2 -fgraphite-identity " }

MODULE MAIN1
 REAL , ALLOCATABLE :: HRVALD(:)
END MODULE MAIN1

SUBROUTINE VOLCALC()
 USE MAIN1
 INTEGER :: ITYP
 LOGICAL :: WETSCIM

 DO ITYP = 1 , 100
    IF ( WETSCIM ) HRVALD(ITYP) = 0.0
 ENDDO
END SUBROUTINE VOLCALC
! { dg-final { cleanup-modules "main1" } }