mirror of git://gcc.gnu.org/git/gcc.git
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
This commit is contained in:
parent
955f653119
commit
b896f9fd47
|
@ -1,3 +1,7 @@
|
||||||
|
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 @@
|
||||||
! 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 @@
|
||||||
|
|
||||||
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
|
||||||
|
|
Loading…
Reference in New Issue