ModTestObject.f90

Go to the documentation of this file.

MODULE testobject

  TYPE t_global
     CHARACTER(80) :: window_name
     CHARACTER(80) :: other_window_name
     CHARACTER(80) :: c_window_name
     INTEGER :: other_window_handle
     INTEGER :: c_window_handle
  END TYPE t_global
  
  CONTAINS
    SUBROUTINE associate_pointer( attr, ptr)
      TYPE(t_global), POINTER :: attr, ptr
      ptr => attr
    END SUBROUTINE associate_pointer
    
END MODULE testobject