11573Srgrimes! { dg-do compile } 21573Srgrimes! 31573Srgrimes! PR fortran/34689 41573Srgrimes! 51573Srgrimes! The following (cf. libgomp.fortran/appendix-a/a.33.3.f90) 61573Srgrimes! was rejected because the intent check missed a FL_FUNCTION 71573Srgrimes! for the result variable. 81573Srgrimes! 91573Srgrimesfunction test() 101573Srgrimes implicit none 111573Srgrimes integer :: test 121573Srgrimes interface 131573Srgrimes subroutine foo(a) 141573Srgrimes integer, intent(inout) :: a 151573Srgrimes end subroutine foo 161573Srgrimes end interface 171573Srgrimes call foo(test) 181573Srgrimesend function test 191573Srgrimes