18 lines
329 B
Plaintext
18 lines
329 B
Plaintext
|
! { dg-do run }
|
||
|
! { dg-options "-std=f2008 -fall-intrinsics" }
|
||
|
|
||
|
! Check BLOCK with SAVE'ed variables.
|
||
|
|
||
|
PROGRAM main
|
||
|
IMPLICIT NONE
|
||
|
INTEGER :: i
|
||
|
|
||
|
DO i = 1, 100
|
||
|
BLOCK
|
||
|
INTEGER, SAVE :: summed = 0
|
||
|
summed = summed + i
|
||
|
IF (i == 100 .AND. summed /= 5050) CALL abort ()
|
||
|
END BLOCK
|
||
|
END DO
|
||
|
END PROGRAM main
|