! { dg-do compile } | |
! { dg-options "-pedantic -std=f95" } | |
! Check that DIMENSION/POINTER/ALLOCATABLE/INTENT statements *do* allow | |
! symbols to be typed later. | |
SUBROUTINE test (a) | |
IMPLICIT REAL (a-z) | |
! Those should *not* IMPLICIT-type the symbols: | |
INTENT(IN) :: a | |
DIMENSION :: b(:) | |
POINTER :: c | |
ALLOCATABLE :: b | |
! So this is ok: | |
INTEGER :: a, b, c | |
END SUBROUTINE test |