re PR fortran/90870 (new test case gfortran.dg/deferred_character_33.f90 fails)

2019-06-13  Thomas Koenig  <tkoenig@gcc.gnu.org>

    PR fortran/90870
    * gfortran.dg/deferred_character_33.f90: Remove failing test.
    * gfortran.dg/deferred_character_33a.f90: Likewise.

From-SVN: r272249

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b003836585c4da47fc52b810bb27a86acdf0837d..95af0af8f3a4ed3e653b90adbe2a1eb9c2ad0867 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2019-06-13  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/90870
+       * gfortran.dg/deferred_character_33.f90: Remove failing test.
+       * gfortran.dg/deferred_character_33a.f90: Likewise.
+
 2019-06-12  Thomas Koenig  <tkoenig@gcc.gnu.org>
        Tomáš Trnka  <trnka@scm.com>
 

diff --git a/gcc/testsuite/gfortran.dg/deferred_character_33.f90 b/gcc/testsuite/gfortran.dg/deferred_character_33.f90
deleted file mode 100644 (file)
index ec864d8..0000000
--- a/gcc/testsuite/gfortran.dg/deferred_character_33.f90
+++ /dev/null
@@ -1,35 +0,0 @@
-! { dg-do run }
-! { dg-additional-sources deferred_character_33a.f90 }
-! PR fortran/90744 - this used to pass a wrong length
-! to an external function without a prototype.
-! Original test case by Tomáš Trnka.
-module StringModule
-   implicit none
-
-contains
-   function getstr()
-      character(:), allocatable :: getstr
-
-      getstr = 'OK'
-   end function
-end module
-module TestModule
-   use StringModule
-   implicit none
-
-contains
-   subroutine DoTest()
-      if (.false.) then
-         call convrs('A',getstr())
-      else
-         call convrs('B',getstr())
-      end if
-   end subroutine
-end module
-program external_char_length
-   use TestModule
-
-   implicit none
-
-   call DoTest()
-end program

diff --git a/gcc/testsuite/gfortran.dg/deferred_character_33a.f90 b/gcc/testsuite/gfortran.dg/deferred_character_33a.f90
deleted file mode 100644 (file)
index db117cc..0000000
--- a/gcc/testsuite/gfortran.dg/deferred_character_33a.f90
+++ /dev/null
@@ -1,9 +0,0 @@
-! { dg-do compile }
-subroutine convrs(quanty,fromto)
-   implicit none
-
-   character(*), intent(in) :: quanty,fromto
-
-   if (len(fromto) /= 2) stop 1
-   if (fromto /= 'OK') stop 2
-end subroutine