1! { dg-options " -O -findirect-inlining" } 2function more_OK (fcn) 3 character(*) more_OK 4 character (*), external :: fcn 5 more_OK = fcn () 6end function more_OK 7 character(4) :: answer 8 character(4), external :: is_OK, more_OK 9 answer = more_OK (is_OK) 10contains 11END 12