This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[patch, testsuite] PR35612: fix testcase
- From: Daniel Franke <franke dot daniel at gmail dot com>
- To: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>, gcc-patches at gcc dot gnu dot org
- Cc: "Daniel E. Platt" <danp57 at optonline dot net>
- Date: Sun, 4 Jan 2009 00:16:40 +0100
- Subject: [patch, testsuite] PR35612: fix testcase
On behalf of the reporter (haven't looked into it in detail, but Tobias B.
apparently has):
2009-01-03 Daniel E. Platt <danp57@optonline.net>
PR testsuite/35612
* gfortran.dg/bind_c_usage_8.f03: Fixed dummy argument type.
Regresion tested on i686-pc-linux-gnu. Ok to commit?
Regards
Daniel
Index: ../testsuite/gfortran.dg/bind_c_usage_8.f03
===================================================================
--- ../testsuite/gfortran.dg/bind_c_usage_8.f03 (revision 143030)
+++ ../testsuite/gfortran.dg/bind_c_usage_8.f03 (working copy)
@@ -10,7 +10,7 @@ MODULE ISO_C_UTILITIES
CONTAINS
FUNCTION C_F_STRING(CPTR) RESULT(FPTR)
use, intrinsic :: iso_c_binding
- TYPE(C_PTR), INTENT(IN) :: CPTR ! The C address
+ TYPE(C_PTR), VALUE, TARGET :: CPTR ! The C address
CHARACTER(KIND=C_CHAR), DIMENSION(:), POINTER :: FPTR
INTERFACE
FUNCTION strlen(string) RESULT(len) BIND(C,NAME="strlen") ! { dg-
warning "Implicitly declared" }