This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: ASM allowed in Fortran? and OpenDir?
Hi Janne,
Janne Blomqvist wrote:
> (I suppose PXF90 doesn't exist?)
No, it does not. Actually, PXF has been withdrawn which means there
there probably won't be a PXF90 ever ...
But Intel has put them into a module "USE IFPOSIX" - and added some
additions prefixed by IPX*
See:
http://www.intel.com/software/products/compilers/docs/flin/main_for/mergedProjects/lref_for/source_files/rfpostab.htm
And NAG has some nice F90 modules which allow similar things:
USE F90_UNIX_DIRENT
SUBROUTINE OPENDIR(DIRNAME,DIRUNIT,ERRNO)
CHARACTER*(*),INTENT(IN) :: DIRNAME
INTEGER,INTENT(OUT) :: DIRUNIT
INTEGER,OPTIONAL,INTENT(OUT) :: ERRNO
Opens a directory stream, returning a handle to it in DIRUNIT.
Possible errors include EACCES, ENAMETOOLONG, ENOENT, ENOTDIR,
EMFILE and ENFILE (see F90_UNIX_ERRNO).
SUBROUTINE READDIR(DIRUNIT,NAME,LENNAME,ERRNO)
INTEGER,INTENT(IN) :: DIRUNIT
CHARACTER*(*),INTENT(OUT) :: NAME
INTEGER,INTENT(OUT) :: LENNAME
INTEGER,OPTIONAL,INTENT(OUT) :: ERRNO
Reads the first/next directory entry. The name of the file
is placed into NAME, blank-padded or truncated as
appropriate if the length of the file name differs from
LEN(NAME). The length of the file name is placed in
LENNAME. Note: The maximum file name length is available from
SYSCONF; enquiry SC_NAME_MAX.
If there are no more directory entries, NAME is undefined and
LENNAME is negative.
If DIRUNIT is not a directory stream handle produced by
OPENDIR, or has been closed by CLOSEDIR, error EBADF (see
F90_UNIX_ERRNO) is raised.
See: Modules f90_* at http://www.nag.co.uk/nagware/NP/r51_doc/ for details.
See also: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25020
which also contains a link to a tar file.
Tobias