[Openmp-commits] [openmp] r273272 - Fix typos in Fortran headers

[Jonathan Peyton via Openmp-commits]

Author: jlpeyton
Date: Tue Jun 21 10:16:51 2016
New Revision: 273272

URL: http://llvm.org/viewvc/llvm-project?rev=273272&view=rev
Log:
Fix typos in Fortran headers

Fix typos in Fortran headers to match spec.
Patch by Andrey Churbanov.
Differential Revision: http://reviews.llvm.org/D21531

Modified:
    openmp/trunk/runtime/src/include/45/omp_lib.f90.var
    openmp/trunk/runtime/src/include/45/omp_lib.h.var

Modified: openmp/trunk/runtime/src/include/45/omp_lib.f90.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/45/omp_lib.f90.var?rev=273272&r1=273271&r2=273272&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/45/omp_lib.f90.var (original)
+++ openmp/trunk/runtime/src/include/45/omp_lib.f90.var Tue Jun 21 10:16:51 2016
@@ -197,7 +197,7 @@
           subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
             use omp_lib_kinds
             integer (kind=omp_integer_kind), value :: place_num
-            integer (kind=kmp_pointer_kind) ids
+            integer (kind=kmp_pointer_kind) ids(*)
           end subroutine omp_get_place_proc_ids
 
           function omp_get_place_num() bind(c)
@@ -212,7 +212,7 @@
 
           subroutine omp_get_partition_place_nums(place_nums) bind(c)
             use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) place_nums
+            integer (kind=kmp_pointer_kind) place_nums(*)
           end subroutine omp_get_partition_place_nums
 
           function omp_get_wtime() bind(c)
@@ -515,7 +515,7 @@
 
           subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
             use omp_lib_kinds
-            integer (kind=omp_lock_kind) nvar
+            integer (kind=omp_nest_lock_kind) nvar
             integer (kind=omp_lock_hint_kind), value :: hint
           end subroutine omp_init_nest_lock_with_hint
 

Modified: openmp/trunk/runtime/src/include/45/omp_lib.h.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/45/omp_lib.h.var?rev=273272&r1=273271&r2=273272&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/45/omp_lib.h.var (original)
+++ openmp/trunk/runtime/src/include/45/omp_lib.h.var Tue Jun 21 10:16:51 2016
@@ -186,7 +186,7 @@
         subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
           import
           integer (kind=omp_integer_kind), value :: place_num
-          integer (kind=kmp_pointer_kind) ids
+          integer (kind=kmp_pointer_kind) ids(*)
         end subroutine omp_get_place_proc_ids
 
         function omp_get_place_num() bind(c)
@@ -201,7 +201,7 @@
 
         subroutine omp_get_partition_place_nums(place_nums) bind(c)
           import
-          integer (kind=kmp_pointer_kind) place_nums
+          integer (kind=kmp_pointer_kind) place_nums(*)
         end subroutine omp_get_partition_place_nums
 
         function omp_get_wtime() bind(c)
@@ -490,7 +490,7 @@
 
         subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
           import
-          integer (kind=omp_lock_kind) nvar
+          integer (kind=omp_nest_lock_kind) nvar
           integer (kind=omp_lock_hint_kind), value :: hint
         end subroutine omp_init_nest_lock_with_hint