demo_dump Program

          program demo_dump
          use M_attr, only : attr

             write(*,'(a)',advance='no') attr('<dump>')
       end program demo_dump