aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/generic_4.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/gfortran.dg/generic_4.f90')
-rw-r--r--gcc/testsuite/gfortran.dg/generic_4.f9028
1 files changed, 0 insertions, 28 deletions
diff --git a/gcc/testsuite/gfortran.dg/generic_4.f90 b/gcc/testsuite/gfortran.dg/generic_4.f90
deleted file mode 100644
index 62bc569a21c..00000000000
--- a/gcc/testsuite/gfortran.dg/generic_4.f90
+++ /dev/null
@@ -1,28 +0,0 @@
-! { dg-do run }
-! reduced testcase from PR 17740
-module FOO
-
- interface BAR
- module procedure BAR2
- end interface
-
-contains
-
- elemental integer function BAR2(X)
- integer, intent(in) :: X
- BAR2 = X
- end function
-
- subroutine BAZ(y,z)
- integer :: Y(3), Z(3)
- Z = BAR(Y)
- end subroutine
-
-end module
-
-use foo
-integer :: y(3), z(3)
-y = (/1,2,3/)
-call baz(y,z)
-if (any (y /= z)) call abort ()
-end