obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 33 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_21.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_21.f90
new file mode 100644
index 000000000..875173fd3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_21.f90
@@ -0,0 +1,33 @@
+! { dg-do run }

+! Tests the fix for PR40591 in which the interface 'sub2'

+! for 'pptr2' was not resolved.

+!

+! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>

+!

+program main

+  call test

+contains

+  subroutine sub1(arg)
+    integer arg
+    arg = arg + 1

+  end subroutine sub1

+  subroutine test()

+    procedure(sub1), pointer :: pptr1

+    procedure(sub2), pointer :: pptr2
+    integer i

+    i = 0

+    pptr1 => sub1
+    call pptr1 (i)

+    pptr1 => sub2
+    call pptr1 (i)

+    pptr2 => sub1
+    call pptr2 (i)

+    pptr2 => sub2
+    call pptr2 (i)
+    if (i .ne. 22) call abort

+  end subroutine test

+  subroutine sub2(arg)
+    integer arg
+    arg = arg + 10

+  end subroutine sub2

+end program main