anchor.diff:   REAL :: array2d_5 ( 1 : 10 , 1 : 100 )
    REAL :: array3d_1 ( 1 : 10 , 1 : 100 , 1 : 2 )
    REAL :: array3d_2 ( 1 : 10 , 1 : 100 , 1 : 2 )
  - TYPE :: dummy
  -  REAL :: value1
  -  REAL :: value2
  - END TYPE dummy
  - TYPE(dummy) :: tdum
  + TYPE ( dummy ) :: tdum
    REAL :: zsedtend
    REAL :: time_step_len
  +
  +
   
    zsedtend = 1.0
    var3 = 2.0
  
positive.code:  REAL :: var3
   REAL :: var4
   REAL :: var5
   REAL :: array2d_1 ( 1 : 100 )
   REAL :: array2d_2
   REAL :: array2d_3 ( 1 : 10 , 1 : 100 )
  
negative.code: PROGRAM claw_test
  
  
   CALL claw_hoist2 ( )
  END PROGRAM claw_test
  