86 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Verify miscellaneous bugs3 4! The function result must be declared after the dummy arguments5module m16contains7 function f1(x) result(y)8 integer :: x(:)9 integer :: y(size(x))10 end11 function f2(x)12 integer :: x(:)13 integer :: f2(size(x))14 end15end16 17!Expect: m1.mod18!module m119!contains20! function f1(x) result(y)21! integer(4)::x(:)22! integer(4)::y(1_8:size(x,dim=1,kind=8))23! end24! function f2(x)25! integer(4)::x(:)26! integer(4)::f2(1_8:size(x,dim=1,kind=8))27! end28!end29 30! Order of names in PUBLIC statement shouldn't affect .mod file.31module m232 public :: a33 type t34 end type35 type(t), parameter :: a = t()36end37 38!Expect: m2.mod39!module m240! type::t41! end type42! type(t),parameter::a=t()43!end44 45module m3a46 integer, parameter :: i4 = selected_int_kind(9)47end48module m3b49 use m3a50 integer(i4) :: j51end52 53!Expect: m3a.mod54!module m3a55! integer(4),parameter::i4=4_456! intrinsic::selected_int_kind57!end58 59!Expect: m3b.mod60!module m3b61! use m3a,only:i462! integer(4)::j63!end64 65! Test that character literals written with backslash escapes are read correctly.66module m4a67 character(1), parameter :: a = achar(1)68end69module m4b70 use m4a71 character(1), parameter :: b = a72end73 74!Expect: m4a.mod75!module m4a76! character(1_4,1),parameter::a="\001"77! intrinsic::achar78!end79 80!Expect: m4b.mod81!module m4b82! use m4a,only:a83! character(1_4,1),parameter::b="\001"84!end85 86