Intel® Fortran Compiler for Linux* and Mac OS X*

Allocating an allocatable array in an assignment sentence produces unexpeted results or segfaults

Submitted by Ket T. on

Dear forum and Intel developers,

Consider the following code:

program hello
    implicit none
    real(kind=8), allocatable, dimension(:) :: x,y
    x=reshape((/1,2,3,4,5,6/),(/6/))
    print *,x
end program

It will produce blank output. The rememdy is to explicitly allocate x before the reshape statement.

Now the following:

Specifying the working directory as the default for READ and WRITE statements using XCODE4

Submitted by LookRock on

I have an application with an OPEN statement specifying a static filename for program input data accessed with READ statements (i.e., FILE = 'MY.in') and the same situation for program output via WRITE statements (i.e., FILE = 'MY.out').  I would like the ability for the user to store the input files in a working directory they create to meet their needs before program execution and the output files produced in the working directory during program execution.

A Fortran limerick

Frances Roth, from Intel, wrote a Fortran-themed limerick for an internal contest. She didn't win, but I thought her entry was great and she graciously allowed me to share it:

There Once Was A Woman From Intel
Knew MIC Architecture Was So Swell
She Programmed All Day
In Fortran! Hurray!
So Phi To That OpenCL

Derived-type procedure pointer not able to point to subroutine with extended type as argument

Submitted by jb84 on

Hi,

The following code compiles and works under the GNU fortran compiler. On the Intel compiler I get: 

error #8178: The procedure pointer and the procedure target must have matching arguments.
mytype%point1 => type2subroutine

Here is the code:

module mod_type1
implicit none

type :: type1
procedure(type1interface), pointer :: point1
end type

interface
subroutine type1interface(a)
import type1
implicit none
class(type1) :: a

end subroutine
end interface

sending part of array to subroutine in fortran -segmentation error only for ifort compiler

Submitted by sugumar l. on

I have written the Test code

      program test
      integer n,i
      parameter (n=10000)
      REAL a(n,n),b(n),c(n)
      a(1:n,1:n) = 0.0
      read(*,*)i
      call partarray(i,a(1:i,1:i))
      end

      subroutine partarray(I,a)
      integer i
      real a(i,i)
      write(*,*)"i",i
      write(*,*)"Reached the end of part array subroutine"
      return
      end

which works completely fine in gfortran. But ifort compiler throws segmentation error for i value in the range 1445 to 9999.

Issue in array operations in MPI application

Submitted by Gleb D. on

Hello, Intel team!

I develop an application using MPI technology and run it on one of the supercomputers of theRussianAcademyof Sciences. They have IFC v12.0.3 installed.  I may have found a bug in the compiler.

There is a real(4), allocatable, 2-dimensional array in my code (actually there are a lot of them, but only one causes problems). Depending on how many cores I use, the dimensions of the array vary from (81:102, 1:22) for 96 cores to (97:114, 1:18) for 150 cores.

First I set each element of this array individually (in a 2d-cycle), like this:   

Pages

Subscribe to Intel® Fortran Compiler for Linux* and Mac OS X*