system_islnk(3f) - [M_system:QUERY_FILE] checks if argument is a link (LICENSE:PD)
Synopsis
Description
Options
Return Value
Errors
See Also
Examples
elemental impure logical function system_islnk(pathname)
character(len=*),intent(in) :: pathname logical :: system_islnk
The islnk(3f) function checks if path is a path to a link.
path a character string representing a link pathname. Trailing spaces are ignored.
system_islnk The system_islnk() function should always be successful and no return value is reserved to indicate an error.
No errors are defined.
system_isreg(3f), system_stat(3f), system_isdir(3f), system_perm(3f)
Sample program:
program demo_system_islnk use M_system, only : system_islnk implicit none integer :: i character(len=80),parameter :: names(*)=[ & /tmp , & /tmp/NOTTHERE , & /usr/local , & . , & link.test , & PROBABLY_NOT ] do i=1,size(names) write(*,*) is ,trim(names(i)), a link? , system_islnk(names(i)) enddo end program demo_system_islnkResults:
Nemo Release 3.1 | system_islnk (3m_system) | March 07, 2025 |