diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/generic_4.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/generic_4.f90 | 28 |
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 |