message.f90 Source File

program mode
   use M_attr, only : attr, attr_mode
   implicit none
        call printme('color')
        call printme('plain')
        call printme('raw')
   contains
   subroutine printme(mymode)
   character(len=*),intent(in) :: mymode
      call attr_mode(mymode)
      write(*,'(a)')mymode
      write(*,'(a)')attr('<ERROR>Woe is nigh.')
      write(*,'(a)')attr('<WARNING>The night is young.')
      write(*,'(a)')attr('<INFO>It is Monday')
   end subroutine printme
end program mode