From: Jakub Jelinek <jakub@redhat.com>
Date: Wed, 25 Mar 2020 09:48:27 +0000 (+0100)
Subject: testsuite: Fix up FAILs in gfortran testsuite with -fcompare-debug [PR94280]
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c8504ebef1d6a799600b8e5d255c704b7b3aa19c;p=gcc.git

testsuite: Fix up FAILs in gfortran testsuite with -fcompare-debug [PR94280]

These 3 tests use compiler_options() function,
which is inherently incompatible with -fcompare-debug compilation, as it
emits into a string literal in the assembly the exact f951 command line
options, which differs between the two compilations with -fcompare-debug,
where one has -gtoggle and -fcompare-debug-second options added and
different -fdump-final-insns= option argument.

The following patch adds dg-skip-if directives, so that these tests are
ignored during
make check-gfortran RUNTESTFLAGS='--target_board=unix/-fcompare-debug'

2020-03-25  Jakub Jelinek  <jakub@redhat.com>

	PR debug/94280
	* gfortran.dg/iso_c_binding_compiler_1.f90: Add dg-skip-if for
	-fcompare-debug.
	* gfortran.dg/iso_c_binding_compiler_3.f90: Likewise.
	* gfortran.dg/unlimited_polymorphic_31.f03: Likewise.
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4711a09c224..59f15af69ac 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2020-03-25  Jakub Jelinek  <jakub@redhat.com>
+
+	PR debug/94280
+	* gfortran.dg/iso_c_binding_compiler_1.f90: Add dg-skip-if for
+	-fcompare-debug.
+	* gfortran.dg/iso_c_binding_compiler_3.f90: Likewise.
+	* gfortran.dg/unlimited_polymorphic_31.f03: Likewise.
+
 2020-03-25  Mark Eggleston  <mark.eggleston@codethink.com>
 
 	PR fortran/93484
diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_1.f90 b/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_1.f90
index 8eccb6b9e7a..d1d2ca97526 100644
--- a/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_1.f90
+++ b/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_1.f90
@@ -1,4 +1,7 @@
 ! { dg-do link }
+! The compiler_options() function is dependent on the
+! command line options and thus incompatible with -fcompare-debug.
+! { dg-skip-if "-fcompare-debug incompatible test" { *-*-* } { "-fcompare-debug" } { "" } } */
 !
 ! PR fortran/40569
 !
diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90 b/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90
index 71fde9db68f..d1a0f2f276e 100644
--- a/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90
+++ b/gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90
@@ -1,5 +1,8 @@
 ! { dg-do compile }
 ! { dg-options "-Wall" }
+! The compiler_options() function is dependent on the
+! command line options and thus incompatible with -fcompare-debug.
+! { dg-skip-if "-fcompare-debug incompatible test" { *-*-* } { "-fcompare-debug" } { "" } } */
 !
 ! PR fortran/45823
 !
diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03
index dd47c34989e..72d90a06b3e 100644
--- a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03
+++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03
@@ -1,4 +1,7 @@
 ! { dg-do run }
+! The compiler_options() function is dependent on the
+! command line options and thus incompatible with -fcompare-debug.
+! { dg-skip-if "-fcompare-debug incompatible test" { *-*-* } { "-fcompare-debug" } { "" } } */
 !
 ! Test the fix for PR92785, where the array passed to 'write scalar' was not
 ! normalised to LBOUND = 1.