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