Commit b896f9fd by Tobias Burnus Committed by Tobias Burnus

omp_lib.f90.in: Add "implicit none".

2008-06-12  Tobias Burnus  <burnus@net-b.de>

        * omp_lib.f90.in: Add "implicit none".

From-SVN: r136703
parent 955f6531
2008-06-12 Tobias Burnus <burnus@net-b.de>
* omp_lib.f90.in: Add "implicit none".
2008-06-12 Jakub Jelinek <jakub@redhat.com> 2008-06-12 Jakub Jelinek <jakub@redhat.com>
PR middle-end/36506 PR middle-end/36506
......
...@@ -26,6 +26,7 @@ ...@@ -26,6 +26,7 @@
! General Public License. ! General Public License.
module omp_lib_kinds module omp_lib_kinds
implicit none
integer, parameter :: omp_integer_kind = 4 integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4 integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_lock_kind = @OMP_LOCK_KIND@ integer, parameter :: omp_lock_kind = @OMP_LOCK_KIND@
...@@ -35,6 +36,7 @@ ...@@ -35,6 +36,7 @@
module omp_lib module omp_lib
use omp_lib_kinds use omp_lib_kinds
implicit none
integer, parameter :: openmp_version = 200805 integer, parameter :: openmp_version = 200805
integer (omp_sched_kind), parameter :: omp_sched_static = 1 integer (omp_sched_kind), parameter :: omp_sched_static = 1
integer (omp_sched_kind), parameter :: omp_sched_dynamic = 2 integer (omp_sched_kind), parameter :: omp_sched_dynamic = 2
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment