re PR fortran/56416 (texinfo 5: Many warnings for gfortran's *.texi)
2012-02-21 Tobias Burnus <burnus@net-b.de> PR fortran/56416 * gfortran.texi (Part II: Language Reference, Extensions, Non-Fortran Main Program): Sort @menu to match actual section order. * intrinsic.texi (Intrinsic Procedures): Ditto. (C_F_POINTER, PRECISION): Move to the alphabetically correct place. From-SVN: r196194
This commit is contained in:
parent
8aadb791f2
commit
58edd811c6
|
@ -1,3 +1,11 @@
|
|||
2012-02-21 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
PR fortran/56416
|
||||
* gfortran.texi (Part II: Language Reference, Extensions,
|
||||
Non-Fortran Main Program): Sort @menu to match actual section order.
|
||||
* intrinsic.texi (Intrinsic Procedures): Ditto.
|
||||
(C_F_POINTER, PRECISION): Move to the alphabetically correct place.
|
||||
|
||||
2013-02-15 Tobias Burnus <burnus@net-b.de>
|
||||
Mikael Morin <mikael@gcc.gnu.org>
|
||||
|
||||
|
|
|
@ -182,8 +182,8 @@ Part I: Invoking GNU Fortran
|
|||
Part II: Language Reference
|
||||
* Fortran 2003 and 2008 status:: Fortran 2003 and 2008 features supported by GNU Fortran.
|
||||
* Compiler Characteristics:: User-visible implementation details.
|
||||
* Extensions:: Language extensions implemented by GNU Fortran.
|
||||
* Mixed-Language Programming:: Interoperability with C
|
||||
* Extensions:: Language extensions implemented by GNU Fortran.
|
||||
* Intrinsic Procedures:: Intrinsic procedures supported by GNU Fortran.
|
||||
* Intrinsic Modules:: Intrinsic modules supported by GNU Fortran.
|
||||
|
||||
|
@ -1348,8 +1348,8 @@ without warning.
|
|||
* Commas in FORMAT specifications::
|
||||
* Missing period in FORMAT specifications::
|
||||
* I/O item lists::
|
||||
* BOZ literal constants::
|
||||
* @code{Q} exponent-letter::
|
||||
* BOZ literal constants::
|
||||
* Real array indices::
|
||||
* Unary operators::
|
||||
* Implicitly convert LOGICAL and INTEGER values::
|
||||
|
@ -2698,8 +2698,8 @@ the same declaration part as the variable or procedure pointer.
|
|||
* _gfortran_set_options:: Set library option flags
|
||||
* _gfortran_set_convert:: Set endian conversion
|
||||
* _gfortran_set_record_marker:: Set length of record markers
|
||||
* _gfortran_set_max_subrecord_length:: Set subrecord length
|
||||
* _gfortran_set_fpe:: Set when a Floating Point Exception should be raised
|
||||
* _gfortran_set_max_subrecord_length:: Set subrecord length
|
||||
@end menu
|
||||
|
||||
Even if you are doing mixed-language programming, it is very
|
||||
|
|
|
@ -87,9 +87,9 @@ Some basic guidelines for editing this document:
|
|||
* @code{CHMOD}: CHMOD, Change access permissions of files
|
||||
* @code{CMPLX}: CMPLX, Complex conversion function
|
||||
* @code{COMMAND_ARGUMENT_COUNT}: COMMAND_ARGUMENT_COUNT, Get number of command line arguments
|
||||
* @code{COMPLEX}: COMPLEX, Complex conversion function
|
||||
* @code{COMPILER_VERSION}: COMPILER_VERSION, Compiler version string
|
||||
* @code{COMPILER_OPTIONS}: COMPILER_OPTIONS, Options passed to the compiler
|
||||
* @code{COMPILER_VERSION}: COMPILER_VERSION, Compiler version string
|
||||
* @code{COMPLEX}: COMPLEX, Complex conversion function
|
||||
* @code{CONJG}: CONJG, Complex conjugate function
|
||||
* @code{COS}: COS, Cosine function
|
||||
* @code{COSH}: COSH, Hyperbolic cosine function
|
||||
|
@ -234,12 +234,12 @@ Some basic guidelines for editing this document:
|
|||
* @code{PRESENT}: PRESENT, Determine whether an optional dummy argument is specified
|
||||
* @code{PRODUCT}: PRODUCT, Product of array elements
|
||||
* @code{RADIX}: RADIX, Base of a data model
|
||||
* @code{RAN}: RAN, Real pseudo-random number
|
||||
* @code{RAND}: RAND, Real pseudo-random number
|
||||
* @code{RANDOM_NUMBER}: RANDOM_NUMBER, Pseudo-random number
|
||||
* @code{RANDOM_SEED}: RANDOM_SEED, Initialize a pseudo-random number sequence
|
||||
* @code{RAND}: RAND, Real pseudo-random number
|
||||
* @code{RANGE}: RANGE, Decimal exponent range
|
||||
* @code{RANK} : RANK, Rank of a data object
|
||||
* @code{RAN}: RAN, Real pseudo-random number
|
||||
* @code{REAL}: REAL, Convert to real type
|
||||
* @code{RENAME}: RENAME, Rename a file
|
||||
* @code{REPEAT}: REPEAT, Repeated string concatenation
|
||||
|
@ -2271,60 +2271,57 @@ end subroutine association_test
|
|||
@end table
|
||||
|
||||
|
||||
@node C_FUNLOC
|
||||
@section @code{C_FUNLOC} --- Obtain the C address of a procedure
|
||||
@fnindex C_FUNLOC
|
||||
@cindex pointer, C address of procedures
|
||||
@node C_F_POINTER
|
||||
@section @code{C_F_POINTER} --- Convert C into Fortran pointer
|
||||
@fnindex C_F_POINTER
|
||||
@cindex pointer, convert C to Fortran
|
||||
|
||||
@table @asis
|
||||
@item @emph{Description}:
|
||||
@code{C_FUNLOC(x)} determines the C address of the argument.
|
||||
@code{C_F_POINTER(CPTR, FPTR[, SHAPE])} assigns the target of the C pointer
|
||||
@var{CPTR} to the Fortran pointer @var{FPTR} and specifies its shape.
|
||||
|
||||
@item @emph{Standard}:
|
||||
Fortran 2003 and later
|
||||
|
||||
@item @emph{Class}:
|
||||
Inquiry function
|
||||
Subroutine
|
||||
|
||||
@item @emph{Syntax}:
|
||||
@code{RESULT = C_FUNLOC(x)}
|
||||
@code{CALL C_F_POINTER(CPTR, FPTR[, SHAPE])}
|
||||
|
||||
@item @emph{Arguments}:
|
||||
@multitable @columnfractions .15 .70
|
||||
@item @var{x} @tab Interoperable function or pointer to such function.
|
||||
@item @var{CPTR} @tab scalar of the type @code{C_PTR}. It is
|
||||
@code{INTENT(IN)}.
|
||||
@item @var{FPTR} @tab pointer interoperable with @var{cptr}. It is
|
||||
@code{INTENT(OUT)}.
|
||||
@item @var{SHAPE} @tab (Optional) Rank-one array of type @code{INTEGER}
|
||||
with @code{INTENT(IN)}. It shall be present
|
||||
if and only if @var{fptr} is an array. The size
|
||||
must be equal to the rank of @var{fptr}.
|
||||
@end multitable
|
||||
|
||||
@item @emph{Return value}:
|
||||
The return value is of type @code{C_FUNPTR} and contains the C address
|
||||
of the argument.
|
||||
|
||||
@item @emph{Example}:
|
||||
@smallexample
|
||||
module x
|
||||
use iso_c_binding
|
||||
implicit none
|
||||
contains
|
||||
subroutine sub(a) bind(c)
|
||||
real(c_float) :: a
|
||||
a = sqrt(a)+5.0
|
||||
end subroutine sub
|
||||
end module x
|
||||
program main
|
||||
use iso_c_binding
|
||||
use x
|
||||
implicit none
|
||||
interface
|
||||
subroutine my_routine(p) bind(c,name='myC_func')
|
||||
import :: c_funptr
|
||||
type(c_funptr), intent(in) :: p
|
||||
import :: c_ptr
|
||||
type(c_ptr), intent(out) :: p
|
||||
end subroutine
|
||||
end interface
|
||||
call my_routine(c_funloc(sub))
|
||||
type(c_ptr) :: cptr
|
||||
real,pointer :: a(:)
|
||||
call my_routine(cptr)
|
||||
call c_f_pointer(cptr, a, [12])
|
||||
end program main
|
||||
@end smallexample
|
||||
|
||||
@item @emph{See also}:
|
||||
@ref{C_ASSOCIATED}, @ref{C_LOC}, @ref{C_F_POINTER}, @ref{C_F_PROCPOINTER}
|
||||
@ref{C_LOC}, @ref{C_F_PROCPOINTER}
|
||||
@end table
|
||||
|
||||
|
||||
|
@ -2385,57 +2382,60 @@ end program main
|
|||
@end table
|
||||
|
||||
|
||||
@node C_F_POINTER
|
||||
@section @code{C_F_POINTER} --- Convert C into Fortran pointer
|
||||
@fnindex C_F_POINTER
|
||||
@cindex pointer, convert C to Fortran
|
||||
@node C_FUNLOC
|
||||
@section @code{C_FUNLOC} --- Obtain the C address of a procedure
|
||||
@fnindex C_FUNLOC
|
||||
@cindex pointer, C address of procedures
|
||||
|
||||
@table @asis
|
||||
@item @emph{Description}:
|
||||
@code{C_F_POINTER(CPTR, FPTR[, SHAPE])} assigns the target of the C pointer
|
||||
@var{CPTR} to the Fortran pointer @var{FPTR} and specifies its shape.
|
||||
@code{C_FUNLOC(x)} determines the C address of the argument.
|
||||
|
||||
@item @emph{Standard}:
|
||||
Fortran 2003 and later
|
||||
|
||||
@item @emph{Class}:
|
||||
Subroutine
|
||||
Inquiry function
|
||||
|
||||
@item @emph{Syntax}:
|
||||
@code{CALL C_F_POINTER(CPTR, FPTR[, SHAPE])}
|
||||
@code{RESULT = C_FUNLOC(x)}
|
||||
|
||||
@item @emph{Arguments}:
|
||||
@multitable @columnfractions .15 .70
|
||||
@item @var{CPTR} @tab scalar of the type @code{C_PTR}. It is
|
||||
@code{INTENT(IN)}.
|
||||
@item @var{FPTR} @tab pointer interoperable with @var{cptr}. It is
|
||||
@code{INTENT(OUT)}.
|
||||
@item @var{SHAPE} @tab (Optional) Rank-one array of type @code{INTEGER}
|
||||
with @code{INTENT(IN)}. It shall be present
|
||||
if and only if @var{fptr} is an array. The size
|
||||
must be equal to the rank of @var{fptr}.
|
||||
@item @var{x} @tab Interoperable function or pointer to such function.
|
||||
@end multitable
|
||||
|
||||
@item @emph{Return value}:
|
||||
The return value is of type @code{C_FUNPTR} and contains the C address
|
||||
of the argument.
|
||||
|
||||
@item @emph{Example}:
|
||||
@smallexample
|
||||
module x
|
||||
use iso_c_binding
|
||||
implicit none
|
||||
contains
|
||||
subroutine sub(a) bind(c)
|
||||
real(c_float) :: a
|
||||
a = sqrt(a)+5.0
|
||||
end subroutine sub
|
||||
end module x
|
||||
program main
|
||||
use iso_c_binding
|
||||
use x
|
||||
implicit none
|
||||
interface
|
||||
subroutine my_routine(p) bind(c,name='myC_func')
|
||||
import :: c_ptr
|
||||
type(c_ptr), intent(out) :: p
|
||||
import :: c_funptr
|
||||
type(c_funptr), intent(in) :: p
|
||||
end subroutine
|
||||
end interface
|
||||
type(c_ptr) :: cptr
|
||||
real,pointer :: a(:)
|
||||
call my_routine(cptr)
|
||||
call c_f_pointer(cptr, a, [12])
|
||||
call my_routine(c_funloc(sub))
|
||||
end program main
|
||||
@end smallexample
|
||||
|
||||
@item @emph{See also}:
|
||||
@ref{C_LOC}, @ref{C_F_PROCPOINTER}
|
||||
@ref{C_ASSOCIATED}, @ref{C_LOC}, @ref{C_F_POINTER}, @ref{C_F_PROCPOINTER}
|
||||
@end table
|
||||
|
||||
|
||||
|
@ -9749,51 +9749,6 @@ default kind.
|
|||
|
||||
|
||||
|
||||
@node PRECISION
|
||||
@section @code{PRECISION} --- Decimal precision of a real kind
|
||||
@fnindex PRECISION
|
||||
@cindex model representation, precision
|
||||
|
||||
@table @asis
|
||||
@item @emph{Description}:
|
||||
@code{PRECISION(X)} returns the decimal precision in the model of the
|
||||
type of @code{X}.
|
||||
|
||||
@item @emph{Standard}:
|
||||
Fortran 95 and later
|
||||
|
||||
@item @emph{Class}:
|
||||
Inquiry function
|
||||
|
||||
@item @emph{Syntax}:
|
||||
@code{RESULT = PRECISION(X)}
|
||||
|
||||
@item @emph{Arguments}:
|
||||
@multitable @columnfractions .15 .70
|
||||
@item @var{X} @tab Shall be of type @code{REAL} or @code{COMPLEX}.
|
||||
@end multitable
|
||||
|
||||
@item @emph{Return value}:
|
||||
The return value is of type @code{INTEGER} and of the default integer
|
||||
kind.
|
||||
|
||||
@item @emph{See also}:
|
||||
@ref{SELECTED_REAL_KIND}, @ref{RANGE}
|
||||
|
||||
@item @emph{Example}:
|
||||
@smallexample
|
||||
program prec_and_range
|
||||
real(kind=4) :: x(2)
|
||||
complex(kind=8) :: y
|
||||
|
||||
print *, precision(x), range(x)
|
||||
print *, precision(y), range(y)
|
||||
end program prec_and_range
|
||||
@end smallexample
|
||||
@end table
|
||||
|
||||
|
||||
|
||||
@node POPCNT
|
||||
@section @code{POPCNT} --- Number of bits set
|
||||
@fnindex POPCNT
|
||||
|
@ -9883,6 +9838,51 @@ end program test_population
|
|||
|
||||
|
||||
|
||||
@node PRECISION
|
||||
@section @code{PRECISION} --- Decimal precision of a real kind
|
||||
@fnindex PRECISION
|
||||
@cindex model representation, precision
|
||||
|
||||
@table @asis
|
||||
@item @emph{Description}:
|
||||
@code{PRECISION(X)} returns the decimal precision in the model of the
|
||||
type of @code{X}.
|
||||
|
||||
@item @emph{Standard}:
|
||||
Fortran 95 and later
|
||||
|
||||
@item @emph{Class}:
|
||||
Inquiry function
|
||||
|
||||
@item @emph{Syntax}:
|
||||
@code{RESULT = PRECISION(X)}
|
||||
|
||||
@item @emph{Arguments}:
|
||||
@multitable @columnfractions .15 .70
|
||||
@item @var{X} @tab Shall be of type @code{REAL} or @code{COMPLEX}.
|
||||
@end multitable
|
||||
|
||||
@item @emph{Return value}:
|
||||
The return value is of type @code{INTEGER} and of the default integer
|
||||
kind.
|
||||
|
||||
@item @emph{See also}:
|
||||
@ref{SELECTED_REAL_KIND}, @ref{RANGE}
|
||||
|
||||
@item @emph{Example}:
|
||||
@smallexample
|
||||
program prec_and_range
|
||||
real(kind=4) :: x(2)
|
||||
complex(kind=8) :: y
|
||||
|
||||
print *, precision(x), range(x)
|
||||
print *, precision(y), range(y)
|
||||
end program prec_and_range
|
||||
@end smallexample
|
||||
@end table
|
||||
|
||||
|
||||
|
||||
@node PRESENT
|
||||
@section @code{PRESENT} --- Determine whether an optional dummy argument is specified
|
||||
@fnindex PRESENT
|
||||
|
|
Loading…
Reference in New Issue