From ec77243f0f1b61a1c496bec1cacc345ddc3b620e Mon Sep 17 00:00:00 2001 From: Brooks Moses Date: Wed, 14 Mar 2007 04:38:47 +0000 Subject: [PATCH] re PR fortran/30922 (IMPORT fails for same symbol in multiple interface bodies of same interface block) PR fortran/30922 PR fortran/30948 PR fortran/30953 * intrinsics.texi (CHDIR): Fix argument names, note that STATUS must be a default integer. (CTIME): Fix argument names, note that RESULT must be a default integer. (EXIT): Note that STATUS must be a default integer. From-SVN: r122905 --- gcc/fortran/ChangeLog | 11 +++++++++++ gcc/fortran/intrinsic.texi | 41 ++++++++++++++++++++++------------------- 2 files changed, 33 insertions(+), 19 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c20066ef73b..334405c57f5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,16 @@ 2007-03-13 Brooks Moses + PR fortran/30922 + PR fortran/30948 + PR fortran/30953 + * intrinsics.texi (CHDIR): Fix argument names, note + that STATUS must be a default integer. + (CTIME): Fix argument names, note that RESULT must + be a default integer. + (EXIT): Note that STATUS must be a default integer. + +2007-03-13 Brooks Moses + PR fortran/28068 * intrinsic.texi: General whitespace cleanup, remove comment about missing intrinsics. diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 4c8dd222c8f..8c2a74aa30b 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -1907,23 +1907,30 @@ and formatted string representations. @table @asis @item @emph{Description}: -Change current working directory to a specified @var{PATH}. +Change current working directory to a specified path. + +This intrinsic is provided in both subroutine and function forms; however, +only one form can be used in any given program unit. @item @emph{Standard}: GNU extension @item @emph{Class}: -Non-elemental subroutine +Subroutine, non-elemental function @item @emph{Syntax}: -@code{CALL CHDIR(PATH [, STATUS])} +@multitable @columnfractions .80 +@item @code{CALL CHDIR(NAME [, STATUS])} +@item @code{STATUS = CHDIR(NAME)} +@end multitable @item @emph{Arguments}: @multitable @columnfractions .15 .70 -@item @var{PATH} @tab The type shall be @code{CHARACTER(*)} and shall +@item @var{NAME} @tab The type shall be @code{CHARACTER(*)} and shall specify a valid path within the file system. -@item @var{STATUS} @tab (Optional) status flag. Returns 0 on success, - a system specific and non-zero error code otherwise. +@item @var{STATUS} @tab (Optional) @code{INTEGER} status flag of the default + kind. Returns 0 on success, and a system specific + and non-zero error code otherwise. @end multitable @item @emph{Example}: @@ -2421,15 +2428,11 @@ end program test_cshift @table @asis @item @emph{Description}: -@code{CTIME(T,S)} converts @var{T}, a system time value, such as returned -by @code{TIME8()}, to a string of the form @samp{Sat Aug 19 18:13:14 -1995}, and returns that string into @var{S}. - -If @code{CTIME} is invoked as a function, it can not be invoked as a -subroutine, and vice versa. +@code{CTIME} converts a system time value, such as returned by +@code{TIME8()}, to a string of the form @samp{Sat Aug 19 18:13:14 1995}. -@var{T} is an @code{INTENT(IN)} @code{INTEGER(KIND=8)} variable. -@var{S} is an @code{INTENT(OUT)} @code{CHARACTER} variable. +This intrinsic is provided in both subroutine and function forms; however, +only one form can be used in any given program unit. @item @emph{Standard}: GNU extension @@ -2439,14 +2442,14 @@ Subroutine @item @emph{Syntax}: @multitable @columnfractions .80 -@item @code{CALL CTIME(T,S)}. -@item @code{S = CTIME(T)}, (not recommended). +@item @code{CALL CTIME(TIME, RESULT)}. +@item @code{RESULT = CTIME(TIME)}, (not recommended). @end multitable @item @emph{Arguments}: @multitable @columnfractions .15 .70 -@item @var{S}@tab The type shall be of type @code{CHARACTER}. -@item @var{T}@tab The type shall be of type @code{INTEGER(KIND=8)}. +@item @var{TIME} @tab The type shall be of type @code{INTEGER(KIND=8)}. +@item @var{RESULT} @tab The type shall be of type @code{CHARACTER}. @end multitable @item @emph{Return value}: @@ -3273,7 +3276,7 @@ Subroutine @item @emph{Arguments}: @multitable @columnfractions .15 .70 -@item @var{STATUS} @tab The type of the argument shall be @code{INTEGER(*)}. +@item @var{STATUS} @tab Shall be an @code{INTEGER} of the default kind. @end multitable @item @emph{Return value}: -- 2.11.4.GIT