anchor.diff:   REAL :: var3
    REAL :: var4
    REAL :: var5
  + TYPE :: dummy
  +  REAL :: value1
  +  REAL :: value2
  + END TYPE dummy
    REAL :: array2d_1 ( 1 : 100 )
    REAL :: array2d_2
    REAL :: array2d_3 ( 1 : 10 , 1 : 100 )
  
positive.code: PROGRAM claw_test
  
   CALL claw_hoist2 ( )
  END PROGRAM claw_test
  
negative.code:  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 ) :: tdum
   REAL :: zsedtend
   REAL :: time_step_len
  
  
  
   zsedtend = 1.0
   var3 = 2.0
  