Update ListStart.f95

Uebung/SoSe2023/ListStart.f95

@@ -28,7 +28,7 @@ program PointerListProgramm
 
     contains
         subroutine addPerson (firstPerson, name)
-            type(ListElement), pointer, intent(inout)   :: firstPerson
+            type(ListElement), pointer      :: firstPerson
             character(len=20), intent(in)   :: name
             type(ListElement), pointer      :: current
             
@@ -49,9 +49,9 @@ program PointerListProgramm
         endsubroutine addPerson
 
         function length(firstPerson)
-            type(ListElement), pointer, intent(in)  :: firstPerson
-            integer                                 :: length
-            type(ListElement), pointer              :: current
+            type(ListElement), pointer  :: firstPerson
+            integer                     :: length
+            type(ListElement), pointer  :: current
 
             if(.not.associated(firstPerson)) then
                 length = 0
@@ -66,7 +66,7 @@ program PointerListProgramm
         end function
 
         subroutine deletePerson(firstPerson)
-            type(ListElement), pointer, intent(inout)   :: firstPerson
+            type(ListElement), pointer,     :: firstPerson
             type(ListElement), pointer      :: current
 
             
@@ -85,4 +85,4 @@ program PointerListProgramm
             end if
         end subroutine
 
-end program PointerListProgramm
\ No newline at end of file
+end program PointerListProgramm