2006-05-21 Paul Thomas <pault@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / associated_target_1.f90

diff --git a/gcc/testsuite/gfortran.dg/associated_target_1.f90 b/gcc/testsuite/gfortran.dg/associated_target_1.f90
new file mode 100644 (file)
index 0000000..13df470
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/associated_target_1.f90
@@ -0,0 +1,12 @@
+! { dg-do compile }
+! This tests the patch for PR27584, where an ICE would ensue if
+! a bad argument was fed for the target in ASSOCIATED.
+!
+! Contributed by Tobias Burnus  <tobias.burnus@physik.fu-berlin.de>
+!
+program test
+   implicit none
+   real, pointer :: x
+   real, target :: y
+   if(ASSOCIATED(X,(Y))) print *, 'Hello' ! { dg-error "VARIABLE or FUNCTION" }
+end program test