Commit 97d158f2 authored by rtoy's avatar rtoy
Browse files

PARSE-IMPLICIT-DECL was not correctly handling

IMPLICIT REAL*8 (A-H, O-Z)

It was incorrectly calling CONVERT-DATA-TYPE.
parent 6b80ee4a
......@@ -17,7 +17,7 @@
"Use (f2cl-version) instead")
(defparameter *f2cl1-version*
"$Id: f2cl1.l,v 24d631b2c5d8 2008/09/11 14:59:55 rtoy $")
"$Id: f2cl1.l,v a4d404fc248b 2009/01/03 00:48:57 rtoy $")
;; Forward declarations.
(defvar *f2cl2-version*)
......@@ -1714,7 +1714,7 @@ FILENAME File containing Fortran code
,@(cddddr x))
x)))
(mapc #'(lambda (y)
(push `(,(car (convert-data-type y))
(push `(,(car (convert-data-type (car y)))
,@(list-split '|,|
(remove '- (car (last y)))))
*implicit_vble_decls*))
......@@ -3175,8 +3175,15 @@ loop2
;;;-----------------------------------------------------------------------------
;;; end of f2cl1.l
;;;
;;; $Id: f2cl1.l,v 24d631b2c5d8 2008/09/11 14:59:55 rtoy $
;;; $Id: f2cl1.l,v a4d404fc248b 2009/01/03 00:48:57 rtoy $
;;; $Log$
;;; Revision 1.210 2009/01/03 00:48:57 rtoy
;;; PARSE-IMPLICIT-DECL was not correctly handling
;;;
;;; IMPLICIT REAL*8 (A-H, O-Z)
;;;
;;; It was incorrectly calling CONVERT-DATA-TYPE.
;;;
;;; Revision 1.209 2008/09/11 14:59:55 rtoy
;;; o Add comment that some Fortran compilers allow $ as a valid
;;; character.
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment