"Fossies" - the Fresh Open Source Software Archive

Member "meson-0.52.1/test cases/fortran/12 submodule/a1.f90" (28 Nov 2019, 300 Bytes) of package /linux/privat/meson-0.52.1.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Fortran 90 source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 module a1
    2 implicit none
    3 
    4 interface
    5 module elemental real function pi2tau(pi)
    6   real, intent(in) :: pi
    7 end function pi2tau
    8 
    9 module real function get_pi()
   10 end function get_pi
   11 end interface
   12 
   13 end module a1
   14 
   15 program hierN
   16 
   17 use a1
   18 
   19 pi = get_pi()
   20 
   21 tau = pi2tau(pi)
   22 
   23 print *,'pi=',pi,'tau=',tau
   24 
   25 end program