18 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2module m3 procedure(func), pointer :: foo4 interface foo5 procedure :: foo6 end interface7 contains8 function func(x)9 func = x10 end11end12 13program main14 use m15!CHECK: foo => func16 foo => func17end18