1! RUN: %S/test_errors.sh %s %t %flang_fc1 2! REQUIRES: shell 3! C711 An assumed-type actual argument that corresponds to an assumed-rank 4! dummy argument shall be assumed-shape or assumed-rank. 5subroutine s(arg1, arg2, arg3) 6 type(*), dimension(..) :: arg1 ! assumed rank 7 type(*), dimension(:) :: arg2 ! assumed shape 8 type(*) :: arg3 9 10 call inner(arg1) ! OK, assumed rank 11 call inner(arg2) ! OK, assumed shape 12 !ERROR: Assumed-type 'arg3' must be either assumed shape or assumed rank to be associated with assumed-type dummy argument 'dummy=' 13 call inner(arg3) 14 15 contains 16 subroutine inner(dummy) 17 type(*), dimension(..) :: dummy 18 end subroutine inner 19end subroutine s 20