From 693d54f279d5c1d8694f47a6bcbf6718c618a1fe Mon Sep 17 00:00:00 2001
From: Tobias Burnus <burnus@net-b.de>
Date: Wed, 19 Aug 2009 08:38:29 +0200
Subject: [PATCH] re PR fortran/41102 (Ease error checking of included files
located in the SYSTEM_INCLUDE_DIR/ending in .h)
2009-08-19 Tobias Burnus <burnus@net-b.de>
PR fortran/41102
omp_lib.h.in: Fix -std=f95 errors.
From-SVN: r150931
---
libgomp/ChangeLog | 6 ++++++
libgomp/omp_lib.h.in | 16 ++++++++--------
2 files changed, 14 insertions(+), 8 deletions(-)
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 1b0c12d1461a..26ec06290621 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,9 @@
+2009-08-19 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/41102
+ omp_lib.h.in: Fix -std=f95 errors.
+
+
2009-08-14 David Edelsohn <edelsohn@gnu.org>
* testsuite/libgomp.graphite: Move from gcc.dg/graphite.
diff --git a/libgomp/omp_lib.h.in b/libgomp/omp_lib.h.in
index b42330bd3834..2ff7a42fa8f5 100644
--- a/libgomp/omp_lib.h.in
+++ b/libgomp/omp_lib.h.in
@@ -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
--
GitLab