From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Thu, 13 Jun 2019 17:00:22 +0000 (+0000)
Subject: re PR fortran/90870 (new test case gfortran.dg/deferred_character_33.f90 fails)
X-Git-Tag: releases/gcc-7.5.0~394
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=14a98949af406df72240e963a899ede0b04cafa8;p=thirdparty%2Fgcc.git

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 b003836585c4..95af0af8f3a4 100644
--- 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
index ec864d83c314..000000000000
--- 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
index db117cc0b381..000000000000
--- 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