aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/forttyp.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-06-21 03:16:39 +0000
committerdos-reis <gdr@axiomatics.org>2010-06-21 03:16:39 +0000
commitafaaaac2b55741bfe43099f819fd4a9592b1c022 (patch)
tree7a5bbd28009759b1c787d3df4c4ba5960cd11280 /src/algebra/forttyp.spad.pamphlet
parent640d839b4de4d0daf0dde00ba08eab6d264160ad (diff)
downloadopen-axiom-afaaaac2b55741bfe43099f819fd4a9592b1c022.tar.gz
Revert previous erroneous commit
Diffstat (limited to 'src/algebra/forttyp.spad.pamphlet')
-rw-r--r--src/algebra/forttyp.spad.pamphlet1
1 files changed, 0 insertions, 1 deletions
diff --git a/src/algebra/forttyp.spad.pamphlet b/src/algebra/forttyp.spad.pamphlet
index ca059628..c1800ccd 100644
--- a/src/algebra/forttyp.spad.pamphlet
+++ b/src/algebra/forttyp.spad.pamphlet
@@ -130,7 +130,6 @@ FortranScalarType() : exports == implementation where
s = upperDoubleSymbol => ["double precision"]$Rep
s = doubleComplexSymbol => ["double complex"]$Rep
s = upperDoubleCOmplexSymbol => ["double complex"]$Rep
- error "invalid as a Fortran Type"
coerce(s:String):$ ==
s = "real" => ["real"]$Rep