demo_system_uname.f90 Source File


Contents

Source Code


Source Code

     program demo_system_uname
        use M_system, only : system_uname
        implicit none
        integer,parameter          :: is=100
        integer                    :: i
        character(len=*),parameter :: letters='srvnmxT'
        character(len=is)          :: string=' '

        do i=1,len(letters)
           write(*,'(80("="))')
           call system_uname(letters(i:i),string)
           write(*,*)&
           &'=====> TESTING system_uname('//letters(i:i)//')--->'//trim(string)
        enddo

     end program demo_system_uname