cosmetics

2015-08-07 16:49:14 +02:00 · 2015-08-07 16:49:14 +02:00 · e9182ffcec
commit e9182ffcec
parent 1bf3d3e355
1 changed files with 11 additions and 3 deletions
--- a/test/fc_int64/src/example.f90
+++ b/test/fc_int64/src/example.f90
@ -1,14 +1,22 @@
 program example
+
   implicit none
-   ! max i*4 is 2,147,483,647, add 1 for i*8
-   integer*8, parameter :: i8ref = 2147483648
+
+   ! max integer(4) is 2147483647
+   integer(8), parameter :: i8ref = 2147483648
+
   integer :: i
+
   logical :: test_ok
+
   i = i8ref
+
   test_ok = (sizeof(i) == 8 .and. i == 2147483648)
+
   if (test_ok) then
      print *, "PASSED"
   else
      stop "FAILED"
   endif
+
 end program