blob: 9879f7336f449ab6a883018bf16d5a22c93f356a [file] [log] [blame]
! RUN: %S/ %s %t %flang_fc1
! C711 An assumed-type actual argument that corresponds to an assumed-rank
! dummy argument shall be assumed-shape or assumed-rank.
subroutine s(arg1, arg2, arg3)
type(*), dimension(..) :: arg1 ! assumed rank
type(*), dimension(:) :: arg2 ! assumed shape
type(*) :: arg3
call inner(arg1) ! OK, assumed rank
call inner(arg2) ! OK, assumed shape
!ERROR: Assumed-type 'arg3' must be either assumed shape or assumed rank to be associated with assumed-type dummy argument 'dummy='
call inner(arg3)
subroutine inner(dummy)
type(*), dimension(..) :: dummy
end subroutine inner
end subroutine s