Hello,
i try to compile this code with ifort12.0.0 20101006. I get no error messages during compiling but the program fails with segmentation fault.
MODULE types
IMPLICIT NONE
TYPE :: parent_t
INTEGER, PRIVATE :: a
CONTAINS
PROCEDURE :: get_a => get_a_fun
PROCEDURE :: set_a => set_a_sub
END TYPE
PRIVATE :: set_a_sub
PRIVATE :: get_a_fun
CONTAINS
SUBROUTINE set_a_sub(this, intvalue)
CLASS(parent_t) :: this
INTEGER :: intvalue
this%a = intvalue
END SUBROUTINE
INTEGER FUNCTION get_a_fun(this)
CLASS(parent_t) :: this
get_a_fun = this%a
END FUNCTION
END MODULE types
PROGRAM types_tester
USE types
IMPLICIT NONE
TYPE(parent_t) :: human
INTEGER :: aa
CALL human%set_a(99)
aa = human%get_a()
write(*,*) aa
END PROGRAM
Thanks for helping
Alex
