blob: f8dc8078e5cef21408a2f20821e63dd023427163 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|
