60 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12pure subroutine s13 contains4 !ERROR: An internal subprogram of a pure subprogram must also be pure5 subroutine t16 end7 pure subroutine t2 ! ok8 end9 elemental subroutine t3(k) ! ok10 integer, intent(in) :: k11 end12 !ERROR: An internal subprogram of a pure subprogram must also be pure13 impure elemental subroutine t4(k)14 integer, intent(in) :: k15 end16 !ERROR: An internal subprogram of a pure subprogram must also be pure17 elemental impure subroutine t5(k)18 integer, intent(in) :: k19 end20end21 22elemental subroutine s2(j)23 integer, intent(in) :: j24 contains25 !ERROR: An internal subprogram of a pure subprogram must also be pure26 subroutine t127 end28 pure subroutine t2 ! ok29 end30 elemental subroutine t3(k) ! ok31 integer, intent(in) :: k32 end33 !ERROR: An internal subprogram of a pure subprogram must also be pure34 impure elemental subroutine t4(k)35 integer, intent(in) :: k36 end37 !ERROR: An internal subprogram of a pure subprogram must also be pure38 elemental impure subroutine t5(k)39 integer, intent(in) :: k40 end41end42 43impure elemental subroutine s3(j)44 integer, intent(in) :: j45 contains46 subroutine t147 end48 pure subroutine t249 end50 elemental subroutine t3(k)51 integer, intent(in) :: k52 end53 impure elemental subroutine t4(k)54 integer, intent(in) :: k55 end56 elemental impure subroutine t5(k)57 integer, intent(in) :: k58 end59end60