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