!
! Copyright (c) 2019, Advanced Micro Devices, Inc. All rights reserved.
!
! CPUPC-2613-F2008: The BLOCK construct allows declarations of 
! entities within executable code.
!
! Date of Modification: Fri November 8th, 2019
! 
! Purpose: Test if COMMON statement inside of BLOCK produces error message
!
PROGRAM BLK03
 IMPLICIT NONE
 INTEGER I
  INTEGER, PARAMETER :: M = 10
 REAL A(M), B(M)
 INTEGER TMP
 COMMON TMP
 INTEGER, PARAMETER :: N = 1
 LOGICAL EXP(N), RES(N)
 CALL CHECK(RES, EXP, N)

 DO I=1,M
 BLOCK
  REAL TMP
  COMMON TMP
  A(I) = I
  B(I) = 2 * I
  TMP = A(I)**3
  IF (TMP > B(I)) B(I) = TMP
 END BLOCK
 END DO
 DO I=1,M
  PRINT *, A
  PRINT *, B
 END DO
END PROGRAM