diff options
| author | Jonathan Peyton <jonathan.l.peyton@intel.com> | 2016-06-21 15:16:51 +0000 |
|---|---|---|
| committer | Jonathan Peyton <jonathan.l.peyton@intel.com> | 2016-06-21 15:16:51 +0000 |
| commit | ea26f3f82ac98cd3a82b7f50dd65b73a846b0cc9 (patch) | |
| tree | bafad3962421802dc2478a05c8984f3fa175df6f /openmp | |
| parent | dc43d61a250053d9ca2f785399847b83353f8dec (diff) | |
| download | bcm5719-llvm-ea26f3f82ac98cd3a82b7f50dd65b73a846b0cc9.tar.gz bcm5719-llvm-ea26f3f82ac98cd3a82b7f50dd65b73a846b0cc9.zip | |
Fix typos in Fortran headers
Fix typos in Fortran headers to match spec.
Patch by Andrey Churbanov.
Differential Revision: http://reviews.llvm.org/D21531
llvm-svn: 273272
Diffstat (limited to 'openmp')
| -rw-r--r-- | openmp/runtime/src/include/45/omp_lib.f90.var | 6 | ||||
| -rw-r--r-- | openmp/runtime/src/include/45/omp_lib.h.var | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/openmp/runtime/src/include/45/omp_lib.f90.var b/openmp/runtime/src/include/45/omp_lib.f90.var index fcae9bce7f1..0e97d579b64 100644 --- a/openmp/runtime/src/include/45/omp_lib.f90.var +++ b/openmp/runtime/src/include/45/omp_lib.f90.var @@ -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 diff --git a/openmp/runtime/src/include/45/omp_lib.h.var b/openmp/runtime/src/include/45/omp_lib.h.var index 5bad7d2c700..76284f27ed1 100644 --- a/openmp/runtime/src/include/45/omp_lib.h.var +++ b/openmp/runtime/src/include/45/omp_lib.h.var @@ -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 |
