text:       PROGRAM MAIN
  
        END
  
  C comment
  * comment
  
        SUBROUTINE foo( i, x, b )
        INTEGER            i
        REAL               x
        LOGICAL            b
  
        IF( i.NE.0 ) THEN
           CALL bar( -i )
        END IF
  
        RETURN
        END
  
        DOUBLE COMPLEX FUNCTION baz()
  
        baz = (0.0d0,0.0d0)
  
        RETURN 
        END
  