Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=legacy" }

! We want to check for statement functions, thus legacy mode.

! Check for errors with declarations not allowed within BLOCK.

SUBROUTINE proc (a)

  IMPLICIT NONE

  INTEGER :: a

  BLOCK

    INTENT(IN) :: a ! { dg-error "not allowed inside of BLOCK" }

    VALUE :: a ! { dg-error "not allowed inside of BLOCK" }

    OPTIONAL :: a ! { dg-error "not allowed inside of BLOCK" }

  END BLOCK

END SUBROUTINE proc

PROGRAM main

  IMPLICIT NONE

  BLOCK

    IMPLICIT INTEGER(a-z) ! { dg-error "not allowed inside of BLOCK" }

    INTEGER :: a, b, c, d

    INTEGER :: stfunc

    stfunc(a, b) = a + b ! { dg-error "not allowed inside of BLOCK" }

    EQUIVALENCE (a, b) ! { dg-error "not allowed inside of BLOCK" }

    NAMELIST /NLIST/ a, b ! { dg-error "not allowed inside of BLOCK" }

    COMMON /CBLOCK/ c, d ! { dg-error "not allowed inside of BLOCK" }

  ! This contains is in the specification part.

  CONTAINS ! { dg-error "Unexpected CONTAINS statement" }

  END BLOCK

  BLOCK

    PRINT *, "Hello, world"

  ! This one in the executable statement part.

  CONTAINS ! { dg-error "Unexpected CONTAINS statement" }

  END BLOCK

END PROGRAM main