diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/intent_out_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/intent_out_4.f90 | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/intent_out_4.f90 b/gcc/testsuite/gfortran.dg/intent_out_4.f90 new file mode 100644 index 000000000..93d7612e4 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/intent_out_4.f90 @@ -0,0 +1,18 @@ +! { dg-do compile } +! +! PR fortran/34689 +! +! The following (cf. libgomp.fortran/appendix-a/a.33.3.f90) +! was rejected because the intent check missed a FL_FUNCTION +! for the result variable. +! +function test() + implicit none + integer :: test + interface + subroutine foo(a) + integer, intent(inout) :: a + end subroutine foo + end interface + call foo(test) +end function test |