This is an archive of the discontinued LLVM Phabricator instance.

Differential D21531

Fix typos in Fortran headers
ClosedPublic

Authored by tlwilmar on Jun 20 2016, 12:56 PM.

Details

Reviewers
jlpeyton
Hahnfeld
AndreyChurbanov
Commits
rGea26f3f82ac9: Fix typos in Fortran headers
rOMP273272: Fix typos in Fortran headers
rL273272: Fix typos in Fortran headers
Summary

Fix typos in Fortran headers to match spec.

Patch by Andrey Churbanov.

Diff Detail

Repository
rL LLVM

Event Timeline

tlwilmar updated this revision to Diff 61294.Jun 20 2016, 12:56 PM
tlwilmar retitled this revision from to Fix typos in Fortran headers.
tlwilmar updated this object.
tlwilmar added reviewers: jlpeyton, AndreyChurbanov.
tlwilmar set the repository for this revision to rL LLVM.
tlwilmar added a subscriber: openmp-commits.
Hahnfeld accepted this revision.Jun 20 2016, 11:10 PM
Hahnfeld added a reviewer: Hahnfeld.
Hahnfeld added a subscriber: Hahnfeld.

LGTM

IMO you could commit trivial typo fixes with post-commit review.

This revision is now accepted and ready to land.Jun 20 2016, 11:10 PM
Closed by commit rL273272: Fix typos in Fortran headers (authored by jlpeyton). · Explain WhyJun 21 2016, 8:23 AM
This revision was automatically updated to reflect the committed changes.

Revision Contents

PathSize
openmp/
trunk/
runtime/
src/
include/
45/
6 lines
6 lines

Diff 61379

openmp/trunk/runtime/src/include/45/omp_lib.h.var

Show First 20 Lines • Show All 180 Lines • ▼ Show 20 Lines! ***
import import
integer (kind=omp_integer_kind), value :: place_num integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids) bind(c) subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
import import
integer (kind=omp_integer_kind), value :: place_num 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 end subroutine omp_get_place_proc_ids
function omp_get_place_num() bind(c) function omp_get_place_num() bind(c)
import import
integer (kind=omp_integer_kind) omp_get_place_num integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num end function omp_get_place_num
function omp_get_partition_num_places() bind(c) function omp_get_partition_num_places() bind(c)
import import
integer (kind=omp_integer_kind) omp_get_partition_num_places integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums) bind(c) subroutine omp_get_partition_place_nums(place_nums) bind(c)
import import
integer (kind=kmp_pointer_kind) place_nums integer (kind=kmp_pointer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums end subroutine omp_get_partition_place_nums
function omp_get_wtime() bind(c) function omp_get_wtime() bind(c)
double precision omp_get_wtime double precision omp_get_wtime
end function omp_get_wtime end function omp_get_wtime
function omp_get_wtick() bind(c) function omp_get_wtick() bind(c)
double precision omp_get_wtick double precision omp_get_wtick
▲ Show 20 Lines • Show All 272 Lines • ▼ Show 20 Lines! ***
subroutine omp_init_lock_with_hint(svar, hint) bind(c) subroutine omp_init_lock_with_hint(svar, hint) bind(c)
import import
integer (kind=omp_lock_kind) svar integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind), value :: hint integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c) subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
import import
integer (kind=omp_lock_kind) nvar integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind), value :: hint integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint end subroutine omp_init_nest_lock_with_hint
end interface end interface
!DIR$ IF DEFINED (__INTEL_OFFLOAD) !DIR$ IF DEFINED (__INTEL_OFFLOAD)
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
▲ Show 20 Lines • Show All 143 Lines • Show Last 20 Lines

openmp/trunk/runtime/src/include/45/omp_lib.f90.var

Show First 20 Lines • Show All 191 Lines • ▼ Show 20 Lines! ***
use omp_lib_kinds use omp_lib_kinds
integer (kind=omp_integer_kind), value :: place_num integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids) bind(c) subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
use omp_lib_kinds use omp_lib_kinds
integer (kind=omp_integer_kind), value :: place_num 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 end subroutine omp_get_place_proc_ids
function omp_get_place_num() bind(c) function omp_get_place_num() bind(c)
use omp_lib_kinds use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_place_num integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num end function omp_get_place_num
function omp_get_partition_num_places() bind(c) function omp_get_partition_num_places() bind(c)
use omp_lib_kinds use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_partition_num_places integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums) bind(c) subroutine omp_get_partition_place_nums(place_nums) bind(c)
use omp_lib_kinds 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 end subroutine omp_get_partition_place_nums
function omp_get_wtime() bind(c) function omp_get_wtime() bind(c)
use omp_lib_kinds use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtime real (kind=kmp_double_kind) omp_get_wtime
end function omp_get_wtime end function omp_get_wtime
function omp_get_wtick() bind(c) function omp_get_wtick() bind(c)
▲ Show 20 Lines • Show All 286 Lines • ▼ Show 20 Lines! ***
subroutine omp_init_lock_with_hint(svar, hint) bind(c) subroutine omp_init_lock_with_hint(svar, hint) bind(c)
use omp_lib_kinds use omp_lib_kinds
integer (kind=omp_lock_kind) svar integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind), value :: hint integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c) subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
use omp_lib_kinds 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 integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint end subroutine omp_init_nest_lock_with_hint
end interface end interface
end module omp_lib end module omp_lib