File: example_path_dir_name.f90

package info (click to toggle)
fortran-stdlib 0.8.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 34,008 kB
  • sloc: f90: 24,178; ansic: 1,244; cpp: 623; python: 119; makefile: 13
file content (16 lines) | stat: -rw-r--r-- 450 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
! Usage of dir_name
program example_path_dir_name
    use stdlib_system, only: dir_name, OS_TYPE, OS_WINDOWS
    character(len=:), allocatable :: p1, head, tail

    if(OS_TYPE() == OS_WINDOWS) then
        p1 = 'C:\Users' ! C:\Users
    else
        p1 = '/home' ! /home
    endif 

    print *, 'dir_name of '// p1 // ' -> ' // dir_name(p1) 
    ! dir_name of C:\Users -> C:\
    ! OR
    ! dir_name of /home -> /
end program example_path_dir_name