File: example_path_base_name.f90

package info (click to toggle)
fortran-stdlib 0.8.1-1
  • links: PTS, VCS
  • area: main
  • in suites: 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-- 436 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
! Usage of base_name
program example_path_base_name
    use stdlib_system, only: base_name, OS_TYPE, OS_WINDOWS
    character(len=:), allocatable :: p1

    if(OS_TYPE() == OS_WINDOWS) then
        p1 = 'C:\Users'
    else
        p1 = '/home'
    endif 
    
    print *, 'base name of '// p1 // ' -> ' // base_name(p1) 
    ! base name of C:\Users -> Users
    ! OR
    ! base name of /home -> home
end program example_path_base_name