19 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! C711 An assumed-type actual argument that corresponds to an assumed-rank3! dummy argument shall be assumed-shape or assumed-rank.4subroutine s(arg1, arg2, arg3)5 type(*), dimension(..) :: arg1 ! assumed rank6 type(*), dimension(:) :: arg2 ! assumed shape7 type(*) :: arg38 9 call inner(arg1) ! OK, assumed rank10 call inner(arg2) ! OK, assumed shape11 !ERROR: Assumed-type 'arg3' must be either assumed shape or assumed rank to be associated with assumed rank dummy argument 'dummy='12 call inner(arg3)13 14 contains15 subroutine inner(dummy)16 type(*), dimension(..) :: dummy17 end subroutine inner18end subroutine s19