[gcc(refs/users/aoliva/heads/testme)] [testsuite] [ppc] skip ppc-fortran if fortran is disabled

Alexandre Oliva aoliva@gcc.gnu.org
Thu Mar 30 14:08:17 GMT 2023


https://gcc.gnu.org/g:1c6f5485f89a4df261f9d5748e62165e1635e175

commit 1c6f5485f89a4df261f9d5748e62165e1635e175
Author: Alexandre Oliva <oliva@adacore.com>
Date:   Thu Mar 30 05:07:27 2023 -0300

    [testsuite] [ppc] skip ppc-fortran if fortran is disabled
    
    Skip ppc-fortran.exp if a trivial fortran program cannot be compiled.
    
    
    for  gcc/testsuite/ChangeLog
    
            * gcc.target/powerpc/ppc-fortran/ppc-fortran.exp: Test for
            fortran compiler, skip if missing.

Diff:
---
 gcc/testsuite/gcc.target/powerpc/ppc-fortran/ppc-fortran.exp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gcc/testsuite/gcc.target/powerpc/ppc-fortran/ppc-fortran.exp b/gcc/testsuite/gcc.target/powerpc/ppc-fortran/ppc-fortran.exp
index f7e99ac8487..d05c27ab589 100644
--- a/gcc/testsuite/gcc.target/powerpc/ppc-fortran/ppc-fortran.exp
+++ b/gcc/testsuite/gcc.target/powerpc/ppc-fortran/ppc-fortran.exp
@@ -33,6 +33,15 @@ if ![info exists DEFAULT_FFLAGS] then {
 # Initialize `dg'.
 dg-init
 
+if { ![check_no_compiler_messages fortran_available assembly {
+! Fortran
+program P
+  stop
+end program P
+} ""] } {
+    return
+}
+
 global gfortran_test_path
 global gfortran_aux_module_flags
 set gfortran_test_path $srcdir/$subdir


More information about the Gcc-cvs mailing list