Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/block_1.f08 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-std=f2008 -fall-intrinsics" } ! Basic Fortran 2008 BLOCK construct test. PROGRAM main IMPLICIT NONE INTEGER :: i i = 42 ! Empty block. BLOCK END BLOCK ! Block without local variables but name. BLOCK IF (i /= 42) CALL abort () i = 5 END BLOCK IF (i /= 5) CALL abort () ! Named block with local variable and nested block. myblock: BLOCK INTEGER :: i i = -1 BLOCK IF (i /= -1) CALL abort () i = -2 END BLOCK IF (i /= -2) CALL abort () END BLOCK myblock ! Matching end-label. IF (i /= 5) CALL abort () END PROGRAM main