gcc/testsuite/gfortran.dg/block_8.f08

   1 ! { dg-do run }
   2 ! { dg-options "-std=f2008 -fall-intrinsics" }
   3
   4 ! Check BLOCK with SAVE'ed variables.
   5
   6 PROGRAM main
   7   IMPLICIT NONE
   8   INTEGER :: i
   9
  10   DO i = 1, 100
  11     BLOCK
  12       INTEGER, SAVE :: summed = 0
  13       summed = summed + i
  14       IF (i == 100 .AND. summed /= 5050) CALL abort ()
  15     END BLOCK
  16   END DO
  17 END PROGRAM main