This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]