1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s 2module m 3 procedure(func), pointer :: foo 4 interface foo 5 procedure :: foo 6 end interface 7 contains 8 function func(x) 9 func = x 10 end 11end 12 13program main 14 use m 15!CHECK: foo => func 16 foo => func 17end 18