gcc/testsuite/gfortran.dg/block_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3
   4 ! BLOCK should be rejected without F2008.
   5
   6 PROGRAM main
   7   IMPLICIT NONE
   8
   9   BLOCK ! { dg-error "Fortran 2008" }
  10     INTEGER :: i
  11   END BLOCK
  12 END PROGRAM main