View foo.f90
program archaic | |
implicit none | |
! This is actually a program input | |
integer, parameter :: M = 10000 | |
integer, allocatable, dimension(:) :: iwork | |
integer, pointer, dimension(:) :: ptr | |
integer, pointer, dimension(:,:) :: ptr_remap | |
integer :: i, start, length | |
nullify(ptr) |
View Makefile
.PHONY: all pgi intel gcc nag clean | |
all: gcc intel nag pgi | |
pgi: | |
pgfortran -V | |
pgfortran -Minform=inform -Mbounds intertest.f90 -o intertest-pgi | |
./intertest-pgi | |
intel: |
View gist:73d52a4a71a4b0074dd9
program test_nearest | |
integer, parameter :: R8P = 8 | |
real(R8P) :: z | |
#ifdef __GFORTRAN__ | |
real(R8P), parameter:: ZeroR8 = nearest(1._R8P, 1._R8P) - nearest(1._R8P,-1._R8P) | |
real(R8P), parameter:: ZeroR8_2 = nearest(1._R8P, 1._R8P) - 1._R8P | |
#endif | |
real(R8P), parameter:: ZeroR8_3 = epsilon(z) |