Line data    Source code

       1              : module test_astero_mod
       2              :    use astero_lib
       3              :    implicit none
       4              : 
       5              : contains
       6              : 
       7            1 :    subroutine do_test
       8            1 :       write (*, *) 'done'
       9            1 :    end subroutine do_test
      10              : 
      11              : end module test_astero_mod
      12              : 
      13            1 : program test_astero
      14            1 :    use test_astero_mod
      15              :    implicit none
      16            1 :    call do_test
      17            1 : end program test_astero