Singly-linked list/Element insertion: Difference between revisions

m
→‎{{header|Fortran}}: "elemental" prefix, "value" declared with intent
(→‎{{header|Common Lisp}}: Recursive version.)
m (→‎{{header|Fortran}}: "elemental" prefix, "value" declared with intent)
Line 464:
=={{header|Fortran}}==
In ISO Fortran 95 or later:
<lang fortran>elemental subroutine addAfter(nodeBefore,value)
type (node), intent(inout) :: nodeBefore
typereal, intent(nodein), pointer :: newNodevalue
type (node), pointer :: newNode
allocate(newNode)
Line 472 ⟶ 473:
newNode%next => nodeBefore%next
nodeBefore%next => newNode
end subroutine addAfter</lang>
 
24

edits