From: Tobias Burnus <tobias@codesourcery.com>
Date: Thu, 31 Oct 2019 15:56:42 +0000 (+0000)
Subject: Ensure that gfortran.dg/achar_2.f90 can fail
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1a9e325fbfc9530a4414f9f9117b30b9cd8ad3c1;p=gcc.git

Ensure that gfortran.dg/achar_2.f90 can fail

        * gfortran.dg/achar_2.f90: Print 'DONE' and add dg-output.

From-SVN: r277674
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6caacc6b3a6..1b7137bea80 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2019-10-31  Tobias Burnus  <tobias@codesourcery.com>
+
+	* gfortran.dg/achar_2.f90: Print 'DONE' and add dg-output.
+
 2019-10-31  Andre Vieira  <andre.simoesdiasvieira@arm.com>
 
 	* gcc.target/aarch64/sve/reduc_strict_3.c: Fix option order.
diff --git a/gcc/testsuite/gfortran.dg/achar_2.f90 b/gcc/testsuite/gfortran.dg/achar_2.f90
index 29cc3e756f0..2865037f442 100644
--- a/gcc/testsuite/gfortran.dg/achar_2.f90
+++ b/gcc/testsuite/gfortran.dg/achar_2.f90
@@ -1,6 +1,7 @@
 ! { dg-do run }
 ! PR 30389 - we now treat ACHAR equivalent to CHAR (except for
 !            out of range-values) and IACHAR equivalent to ICHAR.
+! { dg-output
 program main
   integer :: i
   character(len=1) :: c
@@ -2023,4 +2024,9 @@ program main
   c = "ÿ"
   if (achar(i) /= "ÿ") STOP 1514
   if (iachar(c) /= iachar("ÿ")) STOP 1515
+  print *, 'DONE'
 end program main
+
+! DejaGNU only checks the exit code but 'STOP 256' has exit code 0. Hence,
+! check output for:
+! { dg-output "DONE" }