pletnes

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)

pletnes

.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:

pletnes

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)