init [skip ci]

func [ci skip]

doc, refine [skip ci]

compat backslash [skip ci]'

minreq

Author: scivision

expanduser.f90

@@ -0,0 +1,63 @@
+module ioutils
+implicit none
+contains
+
+subroutine expanduser(expandhome, indir)
+
+character(*), intent(in), optional :: indir
+character(:), allocatable, intent(out) :: expandhome
+
+character :: filesep
+character(256) :: buf
+! -- resolve home directory as Fortran does not understand tilde
+! works for Linux, Mac, Windows and more
+
+if (present(indir)) then
+  if (indir(1:1) /= '~') then
+    expandhome = indir
+    return
+  endif
+endif
+
+! assume MacOS/Linux/BSD/Cygwin/WSL
+filesep = '/'
+call get_environment_variable("HOME", buf)
+
+if (len_trim(buf) == 0) then  ! Windows
+  call get_environment_variable("USERPROFILE", buf)
+  filesep = char(92)
+endif
+
+expandhome = trim(buf) // filesep // indir(3:)
+
+
+end subroutine expanduser
+
+end module ioutils
+
+!------ demo
+
+program home
+
+use ioutils
+implicit none
+! explores what '~' means for paths in Fortran
+! Note: when testing, enclose argument in '~/test.txt' quotes or 
+!  shell will expand '~' before it gets to Fortran!
+
+integer :: fid, ios
+character(:), allocatable :: expanded
+character(256) :: buf
+
+call get_command_argument(1, buf, status=ios)
+
+if (ios==0) then
+  call expanduser(expanded, trim(buf))
+else
+  call expanduser(expanded)
+endif
+
+print '(A)', trim(buf)
+print '(A)', expanded
+
+end program

hdf5/CMakeLists.txt

@@ -1,4 +1,4 @@
-cmake_minimum_required (VERSION 3.2.2) # 3.2.2 required for HDF5
+cmake_minimum_required (VERSION 3.10) # 3.10 required for HDF5 1.10
 project(fortran2018demo Fortran)
 enable_testing()
 # INTEL COMPILER: https://software.intel.com/en-us/articles/performance-tools-for-software-developers-building-hdf5-with-intel-compilers

special_characters.f90

@@ -2,19 +2,22 @@ program special_char
 ! This program shows a few special ASCII characters in Fortran.
 ! https://en.wikipedia.org/wiki/ASCII#Character_groups
 
-use, intrinsic:: iso_fortran_env, only: stdout=>error_unit
 character, parameter :: &
 nul = char(0), &
 etx = char(3), &
-tab = char(9)
+tab = char(9), &
+backslash = char(92)   ! necessary for strict compilers like PGI and Flang in strings
 
 print *, 'null'
-write(stdout,'(A1)') nul
+print '(A1)', nul
 
 print *, 'etx'
-write(stdout,'(A1)')  etx
+print '(A1)', etx
 
 print *, 'tab'
-write(stdout,'(A1)') tab
+print '(A1)', tab
+
+print *, 'backslash'
+print '(A1)', backslash
 
 end program