From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; 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.
---
 gcc/testsuite/gfortran.dg/f2c_6.f90 | 84 +++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/f2c_6.f90

(limited to 'gcc/testsuite/gfortran.dg/f2c_6.f90')

diff --git a/gcc/testsuite/gfortran.dg/f2c_6.f90 b/gcc/testsuite/gfortran.dg/f2c_6.f90
new file mode 100644
index 000000000..d28724cfa
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/f2c_6.f90
@@ -0,0 +1,84 @@
+! { dg-do run }
+! { dg-options "-ff2c" }
+! Verifies that complex pointer results work with -ff2c
+! try all permutations of result clause in function yes/no
+!                     and result clause in interface yes/no
+! this is not possible in Fortran 77, but this exercises a previously
+! buggy codepath
+function c() result (r)
+  common // z
+  complex, pointer :: r
+  complex, target :: z
+
+  r=>z
+end function c
+
+function d()
+  common // z
+  complex, pointer :: d
+  complex, target :: z
+
+  d=>z
+end function d
+
+function e()
+  common // z
+  complex, pointer :: e
+  complex, target :: z
+
+  e=>z
+end function e
+
+function f() result(r)
+  common // z
+  complex, pointer :: r
+  complex, target :: z
+
+  r=>z
+end function f
+
+interface
+   function c ()
+     complex, pointer :: c
+   end function c
+end interface
+interface
+   function d()
+     complex, pointer :: d
+   end function d
+end interface
+interface
+   function e () result(r)
+     complex, pointer :: r
+   end function e
+end interface
+interface
+   function f () result(r)
+     complex, pointer :: r
+   end function f
+end interface
+
+common // z
+complex, target :: z
+complex, pointer :: p
+
+z = (1.,0.)
+p => c()
+z = (2.,0.)
+if (p /= z) call abort ()
+
+NULLIFY(p)
+p => d()
+z = (3.,0.)
+if (p /= z) call abort ()
+
+NULLIFY(p)
+p => e()
+z = (4.,0.)
+if (p /= z) call abort ()
+
+NULLIFY(p)
+p => f()
+z = (5.,0.)
+if (p /= z) call abort ()
+end
-- 
cgit v1.2.3