1! { dg-do compile }
2! { dg-options "-O -findirect-inlining -fno-guess-branch-probability -finline-functions -finline-small-functions" }
3function more_OK (fcn)
4  character(*) more_OK
5  character (*), external :: fcn
6  more_OK = fcn ()
7end function more_OK
8  character(4) :: answer
9  character(4), external :: is_OK, more_OK
10  answer = more_OK (is_OK)
11contains
12END
13