re PR testsuite/56082 (FAIL: gfortran.dg/bind_c_bool_1.f90 -O (test for errors...

2013-02-12  Dominique d'Humieres  <dominiq@lps.ens.fr>
            Tobias Burnus  <burnus@net-b.de>

        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 <burnus@net-b.de>
From-SVN: r195984

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 13114a1683e7ed85efe43f20130128bcdf9b7f8f..ab009a5a46b475d7a5de3150bda7a14d7112cacd 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2013-02-12  Dominique d'Humieres  <dominiq@lps.ens.fr>
+           Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/56082
+       * gfortran.dg/bind_c_bool_1.f90 (sub): Change kind=4
+       to kind=2.
+
 2013-02-12  Richard Biener  <rguenther@suse.de>
 
        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 467bdc1b28ab91d49fe53502deac192bbb6bd143..871405a77b0066c08b079d1a625cb7a0954079a8 100644 (file)
--- 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)