| ! { 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 |