37 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12MODULE m13 INTERFACE4 MODULE SUBROUTINE sub1(N, ARR)5 INTEGER, INTENT(IN) :: N6 INTEGER, DIMENSION(N) :: ARR7 END SUBROUTINE8 END INTERFACE9END MODULE10SUBMODULE (m1) m1sub11 CONTAINS12 MODULE SUBROUTINE sub1(N, ARR)13 INTEGER, INTENT(IN) :: N14 INTEGER, DIMENSION(N) :: ARR15 PRINT *, "sub1", N, ARR16 END SUBROUTINE17END SUBMODULE18 19!Expect: m1.mod20!module m121!interface22!module subroutine sub1(n,arr)23!integer(4),intent(in)::n24!integer(4)::arr(1_8:int(n,kind=8))25!end26!end interface27!end28 29!Expect: m1-m1sub.mod30!submodule(m1) m1sub31!contains32!module subroutine sub1(n,arr)33!integer(4),intent(in)::n34!integer(4)::arr(1_8:int(n,kind=8))35!end36!end37