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/class_17.f03 | 64 ++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/class_17.f03

(limited to 'gcc/testsuite/gfortran.dg/class_17.f03')

diff --git a/gcc/testsuite/gfortran.dg/class_17.f03 b/gcc/testsuite/gfortran.dg/class_17.f03
new file mode 100644
index 000000000..b015c1319
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/class_17.f03
@@ -0,0 +1,64 @@
+! { dg-do compile }
+!
+! PR 43696: [OOP] Bogus error: Passed-object dummy argument must not be POINTER
+!
+! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
+
+
+MODULE error_stack_module
+  implicit none
+
+  type,abstract::serializable_class
+   contains
+     procedure(ser_DTV_RF),deferred::read_formatted
+  end type serializable_class
+
+  abstract interface
+     subroutine ser_DTV_RF(dtv,unit,iotype,v_list,iostat,iomsg)
+       import serializable_class
+       CLASS(serializable_class),INTENT(INOUT) :: dtv
+       INTEGER, INTENT(IN) :: unit
+       CHARACTER (LEN=*), INTENT(IN) :: iotype
+       INTEGER, INTENT(IN) :: v_list(:)
+       INTEGER, INTENT(OUT) :: iostat
+       CHARACTER (LEN=*), INTENT(INOUT) :: iomsg
+     end subroutine ser_DTV_RF
+  end interface
+
+  type,extends(serializable_class)::error_type
+     class(error_type),pointer::next=>null()
+   contains
+     procedure::read_formatted=>error_read_formatted
+  end type error_type
+
+contains
+
+  recursive subroutine error_read_formatted(dtv,unit,iotype,v_list,iostat,iomsg)
+    CLASS(error_type),INTENT(INOUT) :: dtv
+    INTEGER, INTENT(IN) :: unit
+    CHARACTER (LEN=*), INTENT(IN) :: iotype
+    INTEGER, INTENT(IN) :: v_list(:)
+    INTEGER, INTENT(OUT) :: iostat
+    CHARACTER (LEN=*), INTENT(INOUT) :: iomsg
+    character(8),allocatable::type
+    character(8),allocatable::next
+    call basic_read_string(unit,type)
+    call basic_read_string(unit,next)
+    if(next=="NEXT")then
+       allocate(dtv%next)
+       call dtv%next%read_formatted(unit,iotype,v_list,iostat,iomsg)
+    end if
+  end subroutine error_read_formatted
+
+end MODULE error_stack_module
+
+
+module b_module
+  implicit none
+  type::b_type
+     class(not_yet_defined_type_type),pointer::b_component  ! { dg-error "is a type that has not been declared" }
+  end type b_type
+end module b_module
+ 
+
+! { dg-final { cleanup-modules "error_stack_module b_module" } }
-- 
cgit v1.2.3