1! { dg-options "-O2 -fgraphite-identity " }
2
3MODULE MAIN1
4 REAL , ALLOCATABLE :: HRVALD(:)
5END MODULE MAIN1
6
7SUBROUTINE VOLCALC()
8 USE MAIN1
9 INTEGER :: ITYP
10 LOGICAL :: WETSCIM
11
12 DO ITYP = 1 , 100
13    IF ( WETSCIM ) HRVALD(ITYP) = 0.0
14 ENDDO
15END SUBROUTINE VOLCALC
16