gcc/testsuite/gfortran.dg/block_2.f08

! { dg-do run }
! { dg-options "-std=f2008  -fdump-tree-original" }

! More sophisticated BLOCK runtime checks for correct initialization/clean-up.

PROGRAM main
  IMPLICIT NONE
  INTEGER :: n

  n = 5

  myblock: BLOCK
    INTEGER :: arr(n)
    IF (SIZE (arr) /= 5) STOP 1
    BLOCK
      INTEGER :: arr(2*n)
      IF (SIZE (arr) /= 10) STOP 2
    END BLOCK
    IF (SIZE (arr) /= 5) STOP 3
  END BLOCK myblock

  BLOCK
    INTEGER, ALLOCATABLE :: alloc_arr(:)
    IF (ALLOCATED (alloc_arr)) STOP 4
    ALLOCATE (alloc_arr(n))
    IF (SIZE (alloc_arr) /= 5) STOP 5
    ! Should be free'ed here (but at least somewhere), this is checked
    ! with pattern below.
  END BLOCK

  BLOCK
    CHARACTER(LEN=n) :: str
    IF (LEN (str) /= 5) STOP 6
    str = "123456789"
    IF (str /= "12345") STOP 7
  END BLOCK
END PROGRAM main
! { dg-final { scan-tree-dump-times "free \\(\\(void \\*\\) alloc_arr\\.data" 1 "original" } }