From c8504ebef1d6a799600b8e5d255c704b7b3aa19c Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Wed, 25 Mar 2020 10:48:27 +0100 Subject: [PATCH] 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 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. --- gcc/testsuite/ChangeLog | 8 ++++++++ gcc/testsuite/gfortran.dg/iso_c_binding_compiler_1.f90 | 3 +++ gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90 | 3 +++ gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03 | 3 +++ 4 files changed, 17 insertions(+) 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 + + 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 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. -- 2.30.2