17 lines · plain
1!mod$ v1 sum:37cfecee3234c8ab2module modfile673type::t4procedure(foo),nopass,pointer::p5end type6contains7pure function foo(n,a) result(r)8integer(4),intent(in)::n9real(4),intent(in)::a(1_8:int(n,kind=8))10logical(4)::r(1_8:int(int(max(0_8,int(n,kind=8)),kind=4),kind=8))11end12function fooptr(f)13procedure(foo)::f14type(t)::fooptr15end16end17