libgfortran/ChangeLog:
[official-gcc.git] / gcc / testsuite / gfortran.dg / proc_ptr_result_5.f90
blob121fd4d87f9d1a67b87a8d83d93ab6941a2cb41c
1 ! { dg-do compile }
3 ! PR 40541: Assignment checking for proc-pointer => proc-ptr-returning-function()
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
7 program test
8 procedure(real), pointer :: p
9 p => f() ! { dg-error "Type mismatch in function result" }
10 contains
11 function f()
12 pointer :: f
13 interface
14 logical(1) function f()
15 end function
16 end interface
17 f = .true._1
18 end function f
19 end program test