| !mod$ v1 sum:37cfecee3234c8ab | |
| module modfile67 | |
| type::t | |
| procedure(foo),nopass,pointer::p | |
| end type | |
| contains | |
| pure function foo(n,a) result(r) | |
| integer(4),intent(in)::n | |
| real(4),intent(in)::a(1_8:int(n,kind=8)) | |
| logical(4)::r(1_8:int(int(max(0_8,int(n,kind=8)),kind=4),kind=8)) | |
| end | |
| function fooptr(f) | |
| procedure(foo)::f | |
| type(t)::fooptr | |
| end | |
| end |