gcc/testsuite/gfortran.dg/block_6.f08

   1 ! { dg-do run { xfail *-*-* } }
   2 ! { dg-options "-std=f2008 -fall-intrinsics" }
   3
   4 ! Check for correct scope of variables that are implicit typed within a BLOCK.
   5 ! This is not yet implemented, thus XFAIL'ed the test.
   6
   7 PROGRAM main
   8   IMPLICIT INTEGER(a-z)
   9
  10   BLOCK
  11     ! a gets implicitly typed, but scope should not be limited to BLOCK.
  12     a = 42
  13   END BLOCK
  14
  15   ! Here, we should still access the same a that was set above.
  16   IF (a /= 42) CALL abort ()
  17 END PROGRAM main