Line data    Source code

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