file example/example.f90

[No description available]

Namespaces

Name
m1
ma
mb

Functions

Name
integer functiontwo()
character *8 functiontext()

Functions Documentation

function two

integer function two()

function text

character *8 function text()

Source code

!
! Dummy Fortran file to test CBGB
!

module m1
  integer i1,i2(2),i3(3)
  character*8 str
  common /dummy_block/ i1,i2,i3,str
contains
   integer function one()
      one = 1
   end function one
end module m1


integer function two()
  two = 2
end function two


CHARACTER*8 function text()
  text = "ABCDEFGH"
end function text

module ma
contains
   CHARACTER*4 function text()
      text = "abcd"
   end function text
end module ma

module mb
contains
   CHARACTER*6 function text()
      text = "abcdef"
   end function text
end module mb

Updated on 2024-07-18 at 13:53:35 +0000