diff options
Diffstat (limited to 'test/Sema/intrinsicFunctions.f95')
-rw-r--r-- | test/Sema/intrinsicFunctions.f95 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/Sema/intrinsicFunctions.f95 b/test/Sema/intrinsicFunctions.f95 index 6797aa7065..621dd2391b 100644 --- a/test/Sema/intrinsicFunctions.f95 +++ b/test/Sema/intrinsicFunctions.f95 @@ -17,7 +17,7 @@ PROGRAM intrinfuntest INTRINSIC DBLE, cmplx INTRINSIC char, ICHAR - INTRINSIC AINT, dint, anint, DNINT, nint, IDNINT + INTRINSIC AINT, dint, anint, DNINT, nint, IDNINT, ceiling, floor INTRINSIC abs, iabs, dabs, cabs INTRINSIC mod, sign, dim, dprod, max, min INTRINSIC len, len_trim, index @@ -101,6 +101,8 @@ PROGRAM intrinfuntest i = IDNINT(d) ! CHECK: i = idnint(d) i = IDNINT(r) ! expected-error {{passing 'real' to parameter of incompatible type 'double precision'}} + i = ceiling(r) + floor(d) ! CHECK: i = (ceiling(r)+floor(d)) + i = ABS(i) ! CHECK: i = abs(i) r = ABS(r) ! CHECK: r = abs(r) d = ABS(d) ! CHECK: d = abs(d) |