From 18a7895438fdfc98fc07f43eac156d8224c81943 Mon Sep 17 00:00:00 2001 From: Dominique d'Humieres Date: Tue, 12 Feb 2013 17:22:13 +0100 Subject: [PATCH] re PR testsuite/56082 (FAIL: gfortran.dg/bind_c_bool_1.f90 -O (test for errors, line 18) on powerpc-apple-darwin9 with -m32) 2013-02-12 Dominique d'Humieres Tobias Burnus PR fortran/56082 * gfortran.dg/bind_c_bool_1.f90 (sub): Change kind=4 to kind=2 as 32bit Darwin has C_Bool == 4. Co-Authored-By: Tobias Burnus From-SVN: r195984 --- gcc/testsuite/ChangeLog | 7 +++++++ gcc/testsuite/gfortran.dg/bind_c_bool_1.f90 | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 13114a1683e..ab009a5a46b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2013-02-12 Dominique d'Humieres + Tobias Burnus + + PR fortran/56082 + * gfortran.dg/bind_c_bool_1.f90 (sub): Change kind=4 + to kind=2. + 2013-02-12 Richard Biener PR lto/56297 diff --git a/gcc/testsuite/gfortran.dg/bind_c_bool_1.f90 b/gcc/testsuite/gfortran.dg/bind_c_bool_1.f90 index 467bdc1b28a..871405a77b0 100644 --- a/gcc/testsuite/gfortran.dg/bind_c_bool_1.f90 +++ b/gcc/testsuite/gfortran.dg/bind_c_bool_1.f90 @@ -16,7 +16,7 @@ end function sub4 subroutine sub(x) bind(C) ! { dg-error "GNU Extension: LOGICAL dummy argument 'x' at .1. with non-C_Bool kind in BIND.C. procedure 'sub'" } - logical(kind=4) :: x + logical(kind=2) :: x end subroutine sub subroutine sub3(y) bind(C) -- 2.30.2