This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [PATCH] Fix omp_lib.f90 with -fimplicit-none (PR libgomp/36471)
- From: Tobias Burnus <burnus at net-b dot de>
- To: Jakub Jelinek <jakub at redhat dot com>
- Cc: gcc-patches at gcc dot gnu dot org
- Date: Wed, 11 Jun 2008 09:37:55 +0200
- Subject: Re: [PATCH] Fix omp_lib.f90 with -fimplicit-none (PR libgomp/36471)
- References: <20080611071158.GH8133@devserv.devel.redhat.com>
Jakub Jelinek wrote:
These pastos cause -fimplicit-none failures with omp_lib.f90.
Thanks. Shouldn't one apply also such a patch to make sure it won't
happen again?
Tobias
PS: Patch is only lighly tested.
Index: libgomp/configure.ac
===================================================================
--- libgomp/configure.ac (Revision 136654)
+++ libgomp/configure.ac (Arbeitskopie)
@@ -144,7 +144,7 @@ AM_MAINTAINER_MODE
#AC_PROG_FC(gfortran)
FC="$GFORTRAN"
AC_PROG_FC(gfortran)
-FCFLAGS="$FCFLAGS -Wall"
+FCFLAGS="$FCFLAGS -Wall -Werror -fimplicit-none"
# For libtool versioning info, format is CURRENT:REVISION:AGE
libtool_VERSION=1:0:0
Index: libgomp/omp_lib.f90.in
===================================================================
--- libgomp/omp_lib.f90.in (Revision 136654)
+++ libgomp/omp_lib.f90.in (Arbeitskopie)
@@ -26,6 +26,7 @@
! General Public License.
module omp_lib_kinds
+ implicit none
integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_lock_kind = @OMP_LOCK_KIND@
@@ -35,6 +36,7 @@
module omp_lib
use omp_lib_kinds
+ implicit none
integer, parameter :: openmp_version = 200805
integer (omp_sched_kind), parameter :: omp_sched_static = 1
integer (omp_sched_kind), parameter :: omp_sched_dynamic = 2