This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch,libgomp] PR 41102: Make omp_lib.h.in -std=f95 conform
- From: Tobias Burnus <burnus at net-b dot de>
- To: gcc-patches at gcc dot gnu dot org, fortran at gcc dot gnu dot org, jakub at redhat dot com
- Date: Tue, 18 Aug 2009 17:47:39 +0200
- Subject: [patch,libgomp] PR 41102: Make omp_lib.h.in -std=f95 conform
Hello all,
as written in the PR, using
include "lib_omp.h"
with -std=f95 gives errors as the file uses
logical*4
which was never an accepted format. The solution
is trival: Use logical(4).
Build and regtested (libgomp) on x86-64-linux.
OK for the trunk? Should this be also installed
to branches? 4.3, 4.4, ... ?
Tobias
2009-08-18 Tobias Burnus <burnus@net-b.de>
PR fortran/41102
omp_lib.h.in: Fix -std=f95 errors.
Index: libgomp/omp_lib.h.in
===================================================================
--- libgomp/omp_lib.h.in (revision 150875)
+++ libgomp/omp_lib.h.in (working copy)
@@ -42,16 +42,16 @@
external omp_set_num_threads
external omp_get_dynamic, omp_get_nested
- logical*4 omp_get_dynamic, omp_get_nested
+ logical(4) omp_get_dynamic, omp_get_nested
external omp_test_lock, omp_in_parallel
- logical*4 omp_test_lock, omp_in_parallel
+ logical(4) omp_test_lock, omp_in_parallel
external omp_get_max_threads, omp_get_num_procs
- integer*4 omp_get_max_threads, omp_get_num_procs
+ integer(4) omp_get_max_threads, omp_get_num_procs
external omp_get_num_threads, omp_get_thread_num
- integer*4 omp_get_num_threads, omp_get_thread_num
+ integer(4) omp_get_num_threads, omp_get_thread_num
external omp_test_nest_lock
- integer*4 omp_test_nest_lock
+ integer(4) omp_test_nest_lock
external omp_get_wtick, omp_get_wtime
double precision omp_get_wtick, omp_get_wtime
@@ -61,6 +61,6 @@
external omp_get_max_active_levels, omp_get_level
external omp_get_ancestor_thread_num, omp_get_team_size
external omp_get_active_level
- integer*4 omp_get_thread_limit, omp_get_max_active_levels
- integer*4 omp_get_level, omp_get_ancestor_thread_num
- integer*4 omp_get_team_size, omp_get_active_level
+ integer(4) omp_get_thread_limit, omp_get_max_active_levels
+ integer(4) omp_get_level, omp_get_ancestor_thread_num
+ integer(4) omp_get_team_size, omp_get_active_level