I am having compiler error when I run an example given in visual numerics installation folder. The error message is as follows:
Compiling with Intel Visual Fortran 11.1.060 [Intel 64]...
main.f90
fortcom: Fatal: There has been an internal compiler error (C0000094).
compilation aborted for E:\\imsl mapi validation\\Main\\main.f90 (code 1)
Any suggestions?
Regards,
Ravoof
code:
program main
!include 'link_fnl_shared.h'
!include 'link_mpi_hpc.h'
use rand_int
use norm_int
use operation_x
use operation_ix
use mpi_setup_int
implicit none
integer, parameter :: n=32, k=4
real(kind(1e0)) :: one=1e0
real(kind(1e0)), dimension(n,n,k) :: A, b, x, err(k)
call erset(0,1,0)
! Setup for MPI.
! MP_NPROCS=MP_SETUP()
! Generate random matrices for A and b:
IF (MP_RANK == 0) THEN
A = rand(A); b=rand(b)
END IF
! Compute the box solution matrix of Ax = b.
! x = A .ix. b
! Check the results.
! err = norm(b - (A .x. x))/(norm(A)*norm(x)+norm(b))
if (ALL(err <= sqrt(epsilon(one))) .and. MP_RANK == 0) &
write (*,*) 'Example for .ix. is correct.'
! See to any error messages and quit MPI.
MP_NPROCS=MP_SETUP('Final')
end
