＜CONTAINS Example Program＞

Module example_module
  Real :: a = 10.
Contains
  Subroutine sub1
    a = a + 10
  End Subroutine
End Module
Program contains_example
  Use example_module
  Real :: b=10., c=10.
  Call sub1()
  Call sub2()
  Call sub3(c)
  Print *, a,b,c
Contains
  Subroutine sub2()
    Real b
    b = 175.
  End Subroutine sub2
  Subroutine sub3(c)
    Real c
    c = c + 10.
  End Subroutine sub3
End Program contains_example

■ Execution Results

  20.000000  10.0000000  20.0000000