メインモジュール内にモジュールを含めるにはどうすればよいですか？

Question

は私のコードを簡素化する試みで、私は次の方法で別の内のモジュールを作成することにしました：

module A 
    contains                               
     module B 
     real*8, parameter ::pi=3.14159 
     end module B 
    end module A 


    program test 
    use A 
    write(*,*)pi 
    end 

これは動作しませんでした。モジュールを簡略化する戦略には何がありますか？

Answer 1

は、私が何をしたいことは、このようなものですと思う：（あなたのコンパイラがわかりますように）有効な

module B 
    implicit none 
    real, parameter :: pi = 3.14159 
end module B 

module A 
    use B 
    implicit none 
end module A 

program main 
    use A 
    implicit none 
    print*, pi 
end program main