add modulo, ceiling, floor to F90 intrinsics

mrd · mrd · commit 7ca151b5fcbb · 2017-05-17T16:41:52.000+01:00
diff --git a/src/Language/Fortran/Intrinsics.hs b/src/Language/Fortran/Intrinsics.hs
@@ -120,4 +120,7 @@ fortran90intrinisics = fortran77intrinsics `M.union` M.fromList
   , ("dcosh"   , ITDouble)
   , ("tanh"    , ITReal)
   , ("dtanh"   , ITDouble)
+  , ("modulo"  , ITParam 1)
+  , ("ceiling" , ITParam 1)
+  , ("floor"   , ITParam 1)
   ]

Original file line number	Diff line number	Diff line change
@@ -120,4 +120,7 @@ fortran90intrinisics = fortran77intrinsics `M.union` M.fromList
`120`	`120`	`, ("dcosh" , ITDouble)`
`121`	`121`	`, ("tanh" , ITReal)`
`122`	`122`	`, ("dtanh" , ITDouble)`
	`123`	`+ , ("modulo" , ITParam 1)`
	`124`	`+ , ("ceiling" , ITParam 1)`
	`125`	`+ , ("floor" , ITParam 1)`
`123`	`126`	`]`