FM / crackfortran

/opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/crackfortran/

/opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/crackfortran

Name	Size	Mode	Actions
accesstype.f90	208	0644	edit dl rm
data_stmts.f90	580	0644	edit dl rm
foo_deps.f90	128	0644	edit dl rm
gh2848.f90	282	0644	edit dl rm
gh15035.f	375	0644	edit dl rm
gh17859.f	340	0644	edit dl rm
gh22648.pyf	241	0644	edit dl rm
gh23533.f	126	0644	edit dl rm
gh23598.f90	101	0644	edit dl rm
gh23598Warn.f90	205	0644	edit dl rm
gh23879.f90	332	0644	edit dl rm
operators.f90	1184	0644	edit dl rm
privatemod.f90	174	0644	edit dl rm
publicmod.f90	167	0644	edit dl rm
pubprivmod.f90	165	0644	edit dl rm
unicode_comment.f90	98	0644	edit dl rm

Edit: /opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/crackfortran/operators.f90 (1184B)

write(elem%item, "(I32)") val
  end function item_int

function item_real(val) result(elem)
    real, intent(in) :: val
    type(bar) :: elem

write(elem%item, "(1PE32.12)") val
  end function item_real

function items_are_equal(val1, val2) result(equal)
    type(bar), intent(in) :: val1, val2
    logical :: equal

equal = (val1%item == val2%item)
  end function items_are_equal

subroutine get_real(rval, item)
    real, intent(out) :: rval
    type(bar), intent(in) :: item

read(item%item, *) rval
  end subroutine get_real

subroutine get_int(rval, item)
    integer, intent(out) :: rval
    type(bar), intent(in) :: item

read(item%item, *) rval
  end subroutine get_int
end module foo

module foo type bar character(len = 32) :: item end type bar interface operator(.item.) module procedure item_int, item_real end interface operator(.item.) interface operator(==) module procedure items_are_equal end interface operator(==) interface assignment(=) module procedure get_int, get_real end interface assignment(=) contains function item_int(val) result(elem) integer, intent(in) :: val type(bar) :: elem write(elem%item, "(I32)") val end function item_int function item_real(val) result(elem) real, intent(in) :: val type(bar) :: elem write(elem%item, "(1PE32.12)") val end function item_real function items_are_equal(val1, val2) result(equal) type(bar), intent(in) :: val1, val2 logical :: equal equal = (val1%item == val2%item) end function items_are_equal subroutine get_real(rval, item) real, intent(out) :: rval type(bar), intent(in) :: item read(item%item, *) rval end subroutine get_real subroutine get_int(rval, item) integer, intent(out) :: rval type(bar), intent(in) :: item read(item%item, *) rval end subroutine get_int end module foo