demo_system_chdir Program

Uses

Contents

Source Code


Variables

Type Attributes Name Initial
integer :: ierr

Source Code

       program demo_system_chdir
       use M_system, only : system_chdir
       implicit none
       integer :: ierr

       call execute_command_line('pwd')
       call system_chdir('/tmp',ierr)
       call execute_command_line('pwd')
       write(*,*)'*CHDIR TEST* IERR=',ierr

       end program demo_system_chdir