AnotherFoxGuy/autocmake
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cosmetics

Browse Source
This commit is contained in:
Radovan Bast 2015-08-07 16:49:14 +02:00
parent 1bf3d3e355
commit e9182ffcec
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/fc_int64/src/example.f90
View File

@ -1,14 +1,22 @@
program example program example
implicit none 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 integer :: i
logical :: test_ok logical :: test_ok
i=i8ref
i = i8ref
test_ok = (sizeof(i) == 8 .and. i == 2147483648) test_ok = (sizeof(i) == 8 .and. i == 2147483648)
if (test_ok) then if (test_ok) then
print *, "PASSED" print *, "PASSED"
else else
stop "FAILED" stop "FAILED"
endif endif
end program end program