I am currently developping a user subroutine for ANSYS using ifort version 12.1.0 (The version needed to link the user subroutine to ANSYS) with the compiler installed on a Linux platform.

Toidentify the dependencies of the various subroutine and modules before compiling them, i used the command (All f90 files reside in the main folder when i do the operation.):

ifort -gen-dep:depend.mak -save-temps *.f90 1>>dump.std 2>>dump.err

ifort returns this into the depend,mak file for a few of the fortran file, mainly for subroutines which require a module:

statesType.o : \
  statesType.f90 /usr/include/tensorstype.modintr /usr/include/tensorstype.modintr \
  /usr/local/gcc-4.2.2/lib/gcc/x86_64-unknown-linux-gnu/4.2.2/include/tensorstype.modintr \
  /usr/local/include/tensorstype.modintr \
  /raid/home/public/intel/composer_xe_2011_sp1.7.256/compiler/include/tensorstype.modintr \
  /raid/home/public/intel/composer_xe_2011_sp1.7.256/compiler/include/intel64/tensorstype.modintr \
  /opt/intel/composer_xe_2011_sp1.7.256/mkl/include/tensorstype.modintr \
  ./tensorstype.modintr tensorstype.modintr /usr/include/tensorstype.mod \
  /usr/include/tensorstype.mod \
  /usr/local/gcc-4.2.2/lib/gcc/x86_64-unknown-linux-gnu/4.2.2/include/tensorstype.mod \
  /usr/local/include/tensorstype.mod \
  /raid/home/public/intel/composer_xe_2011_sp1.7.256/compiler/include/tensorstype.mod \
  /raid/home/public/intel/composer_xe_2011_sp1.7.256/compiler/include/intel64/tensorstype.mod \
  /opt/intel/composer_xe_2011_sp1.7.256/mkl/include/tensorstype.mod \
  ./tensorstype.mod tensorstype.mod

ifort seems to adequatetely identify the needed module but seems to add junk path before the file and additional .modintr files. Is there something i'm doing wrong ?

Hi, I get a 

configure: error: Fortran 2003 Interoperability with C required, but compiler lacks support

when trying to compile a code with v11.0.069 Ifort. Would anyone know if this should be expected and what might solve this?

Thank you, 

Artem

Hi all,

the following code writes an incorrect result:

program p
 implicit none

 call fs((/"abc","d  "/))

contains

 subroutine fs(text)
  character(len=*), intent(in) :: text(:)
  integer :: i

   write(*,*) "size(text) = ", size(text)
   write(*,*) "len_trim   = ", (len_trim(text(i)) , i=1,size(text))
   write(*,*) "sum(...)   = ", sum((/(len_trim(text(i)) , i=1,size(text))/))

 end subroutine fs

end program p

Using "Intel(R) Fortran Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 16.0.2.181 Build 20160204" I get

 size(text) =            2
 len_trim   =            3           1
 sum(...)   =          259

where I would expect, for sum(...), 4.

This might also be related to this old post: https://software.intel.com/en-us/comment/1878150#comment-1878150 .

I have this error and my code is just below, can someone help me?

read_co2atm.f90(1): error #5082: Syntax error, found '(' when expecting one of: <END-OF-STATEMENT> ;
       program read_co2atm(futr_scen, nco2rec, yrco2rec, atmco2rec)
--------------------------^
read_co2atm.f90(21): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: <REAL_KIND_CON> <REAL_CONSTANT> <DBLPRC_CONSTANT> <DBLPRC_KIND_CON> <QUAPRC_CONSTANT> ...
       OPEN(luco2+1, FILE='splmlo_co2_noces.dat', FORM='formatted',
--------------------------------------------------------------------^
read_co2atm.f90(22): error #5082: Syntax error, found '&' when expecting one of: <LABEL> <END-OF-STATEMENT> ; TYPE INTEGER REAL COMPLEX BYTE CHARACTER CLASS DOUBLE ...
      &     STATUS='old')
------------^
read_co2atm.f90(22): error #5276: Unbalanced parentheses
      &     STATUS='old')
------------------------^
read_co2atm.f90(22): error #5082: Syntax error, found ')' when expecting one of: <END-OF-STATEMENT> ;
      &     STATUS='old')
------------------------^
read_co2atm.f90(33): error #5082: Syntax error, found '&' when expecting one of: <LABEL> <END-OF-STATEMENT> ; TYPE INTEGER REAL COMPLEX BYTE CHARACTER CLASS DOUBLE ...
      &      yrco2rec(irec),atmco2rec(irec)
-------------^
read_co2atm.f90(39): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: <REAL_KIND_CON> <REAL_CONSTANT> <DBLPRC_CONSTANT> <DBLPRC_KIND_CON> <QUAPRC_CONSTANT> ...
       WRITE(*,*) 'Atm. CO2:  No. of entries for 1-box atmosphere =',
---------------------------------------------------------------------^
read_co2atm.f90(40): error #5082: Syntax error, found '&' when expecting one of: <LABEL> <END-OF-STATEMENT> ; TYPE INTEGER REAL COMPLEX BYTE CHARACTER CLASS DOUBLE ...
     &            nco2rec
------------------^
compilation aborted for read_co2atm.f90 (code 1)

My code

       program read_co2atm(futr_scen, nco2rec, yrco2rec, atmco2rec)

       IMPLICIT NONE

       INTEGER maxrec, nmxr
       PARAMETER (maxrec=1200, nmxr=700)

       REAL yrco2rec(maxrec), atmco2rec(maxrec)
       INTEGER luco2, irec
       INTEGER nco2rec
       INTEGER is, ireadf
       INTEGER nsipl, nstab

       REAL futco2(nmxr,8)
       REAL dummy

       CHARACTER*4 futr_scen

       luco2=50
       OPEN(luco2+1, FILE='splmlo_co2_noces.dat', FORM='formatted',
      &     STATUS='old')

       WRITE(*,*)'  '
       WRITE(*,*)'--------------------------------------------------'
       WRITE(*,*)'Atm. CO2 from fit to Siple-Mauna Loa record'
       WRITE(*,*)'--------------------------------------------------'

       DO irec=1,maxrec

        READ(luco2+1,*,ERR=222,END=222)
      &      yrco2rec(irec),atmco2rec(irec)
        nco2rec = irec
       END DO

 222   CONTINUE

       WRITE(*,*) 'Atm. CO2:  No. of entries for 1-box atmosphere =',
     &            nco2rec

       CLOSE(luco2+1)

       RETURN
       END

I'm failing to install and activate Intel Fortran compiler on CentOS7 via network license manager.
When activation, select "2. Use Intel(R) Software License Manager" and enter correct ip and port number of the license server.
After that, no response from the installer over few hours. so I need to give up the activation.

The client Linux is located in AWS. The license server is in company office.

I verified that port 28518 is open in packet level. Are there any things should I do?

Client : CentOS7 on AWS
License Server : Window 2008 Server in local
Application : Intel Parallel studio xe 2016 composer edition for fortran

Thank you for using Intel® software development tools. We are committed to making the best possible software and platforms to meet your development needs. Your personal experience with our products is extremely valuable to us and we want to know how we can do better.

Click here to share your thoughts by completing a 10-min survey on Intel® Parallel Studio XE, as well as your general tool usage.  We value your opinion and look forward to your feedback.  If you have any questions, post a comment below.

If you reside outside of the United States and decide to participate in this survey, you are agreeing to have your personal data transferred to and processed in the United States. Refer to Privacy for more details.

On 7 September 2016, I received an email that indicates that Intel Fortran 2017 has been released.  Great news !  I installed it. Softwares to be installed include, among others:

- Intel Math Kernel Library for OS X 2017

- Intel Data Analytics Acceleration Library for OS X 2017 

Now, on 21 September 2016, I  received a new email announcing 2 software updates:

- Intel Math Kernel Library for OS X 11.3, update 4

- Intel Data Analytics Acceleration Library for OS X 2016, update 4
 

I guess that the 7 September 2016 Fortran 2017 release supersedes the 21 September 2016 release, and that I can discard these updates number 4, right ? (In my old 2016 installation, I had update 3).

ifort does not compile the attached code, which I think is legal

program p
 implicit none
 character(len=*), parameter :: text = "message text"

 associate( msg => text )
 write(*,*) msg
 end associate
end program p

The error is

ifort test.f90 -o test
test.f90(6): error #6404: This name does not have a type, and must have an explicit type.   [MSG]
 write(*,*) msg
------------^
compilation aborted for test.f90 (code 1)

and happens for both versions:

Intel(R) Fortran Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 17.0.0.098 Build 20160721

Intel(R) Fortran Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 16.0.2.181 Build 20160204

Marco

Has anyone successfully compiled and installed fgsl using the intel fortran compiler?

I've found this post:

https://software.intel.com/en-us/forums/intel-fortran-compiler-for-linux-and-mac-os-x/topic/271209

which mentions a fgsl install, but I suspect it's for OSX.

I've downloaded fgsl v. 1.1.0 from http://www.lrz.de/services/software/mathematik/gsl/fortran/

and followed the instructions.  Apparently, compilation with ifort was successful, and I was also able to create a sample program which tried to invoke a fgsl function.  However, when I run the program I get an 'undefined symbol' error message...

It's related to allocating an allocatable component of a user-defined type array with source or mold option, I'm not sure whether this is a wrong way of using mold/source or is a known issue and will be fixed in 2017 version. Anyway, here is the example:

program main
	implicit none
	type t_test
		real(8), allocatable :: T(:)
	end type
	real(8) :: B(2)
	type(t_test) :: A(1)

	do
		allocate(A(1)%T,mold=B)
		!allocate(A(1)%T,source=B)
	enddo

end program

and memory leaks!

if change "A(1)" to a scale "A", then allocate statement will raise a "allocatable array is already allocated" error. I'm not sure whether this error is normal or mold/source should reallocate automatically if shape doesn't match?

compiled with Intel(R) Fortran Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 16.0.3.210 Build 20160415

Hi 

I get the following message:

tiny.f90: catastrophic error: **Internal compiler error: segmentation violation signal raised** Please report this error along with the circumstances in which it occurred in a Software Problem Report.  Note: File and line given may not be explicit cause of this error.

I've attached a tiny example to reproduce the problem.  

Compiling with 

ifort -c tiny.f90

ifort version: ifort (IFORT) 14.0.1 20131008

Obviously this is an old version of the compiler. Can you test this with the latest version - I currently don't have access to the latest version.

Thanks.

With regard to this

https://software.intel.com/en-us/forums/intel-fortran-compiler-for-linux-and-mac-os-x/topic/675652

I went back to 16.0.4 which gave me my dynamic library .................. but the code below failed with a segfault, while 17 is giving the correct results:

Module mod_t1
  Implicit None
  Type t1
    Private
    Integer :: a=8
  contains
    Procedure, Pass, Public :: getA => FunGetA
  End type t1
  Private FunGetA
contains
  Function FunGetA(this)
    Class(t1), Intent(In) :: this
    Real, Allocatable :: FunGetA
    FunGetA=this%a
  End Function FunGetA
End Module mod_t1
Program Test
  use mod_t1
  Type(t1) :: b
  write(*,*) b%getA()
End Program Test

Thus, I either rewrite heaps of allocatable functions ................ or I forget about getting a dynamically linked library.

Hello,

I just upgraded my Linux compiler suite to 17.0 (from the latest 16.xx), and tried to recompile VASP (Fortran+MPI). Now I am getting the error message shown in the subject. I did compile the complete source code. Any idea what's wrong? I tried Open MPI as well as MPICH (recompiled with the new Intel suite for good measure). Here is the complete message:

constrmag.f90:(.text+0x4780): undefined reference to `for_realloc_lhs'

Given that VASP is one of the most heavily used HPC codes, I suspect I'm not the first to run into this problem.

Any ideas?

Thanks in advance,

  Herbert

A new version of Xcode is now available, but based on previous painful experience I do not want to upgrade until I am sure it works with the Intel Fortran compiler. Which version(s) of Xcode is compatible with the new 2017 compiler? Thanks!
 

Makefile

FC = ifort
FCFLAGS= -O0 -debug -traceback -check -ftrapuv

TARGETS= clean birrp

OBJSOC= strlen.f diagnostic.f math.f rtpss.f zlinpack.f coherence.f fft.f rarfilt.f utils.f dataft.f filter.f response.f weight.f  birrp.f
all:  $(TARGETS)    

clean:$
        rm -f *.o *.mod
        rm -f birrp
        
birrp:$(OBJSOC)
        $(FC) $(FCFLAGS) -o $@ $(OBJSOC)

# General compile rules

.SUFFIXES: .f .o

.f .o:    
    $(FC) $(FCFLAGS) -c -o $@ $<

I compile the code

./birrp < n128.in
 select the input level (0=basic,1=advanced): input the number of output time series: input the number of input time series: select tbw for prolate data window (1 to 4): input the data sample interval: input the initial section length and maximum number of sections:  table of output periods by section length
   125.0000       83.33334    
   62.50000       41.66667    
   31.25000       20.83333    
   15.62500       10.41667    
   7.812500       5.208333    
   3.906250       2.604167    
   1.953125       1.302083    
  0.9765625      0.6510417    
 are these values acceptable (y or n)? input the robustness and leverage parameters (0 and >0.99 are recommended): input the 2nd stage coherence threshold: input the output filename root: input the output level (-3 to 3): input the number of data pieces: input the length of the ar filter (0 for none, <0 for filename): select the file mode (0=separate ascii files, 1=separate binary files 2=all component ascii files 3=ts ascii file: select the input mode (0=by points, 1=by date/time): input the number of points to read: input the number of filter parameters (<0 for filename): input the data filename: input the number of points to skip: input the number of filter parameters (<0 for filename): input the data filename: input the number of points to skip: input the number of filter parameters (<0 for filename): input the filter filename: input the data filename: input the number of points to skip: input the number of filter parameters (<0 for filename): input the filter filename: input the data filename: input the number of points to skip: input the number of filter parameters (<0 for filename): input the filter filename: input the data filename: input the number of points to skip: input the number of filter parameters (<0 for filename): input the filter filename: input the data filename: input the number of points to skip:forrtl: error (182): floating invalid - possible uninitialized real/complex variable.
Image              PC                Routine            Line        Source             
birrp              0000000000656D55  Unknown               Unknown  Unknown
birrp              0000000000654977  Unknown               Unknown  Unknown
birrp              00000000006077D4  Unknown               Unknown  Unknown
birrp              00000000006075E6  Unknown               Unknown  Unknown
birrp              00000000005BF7F6  Unknown               Unknown  Unknown
birrp              00000000005C30B7  Unknown               Unknown  Unknown
libpthread.so.0    00007FD7D61433D0  Unknown               Unknown  Unknown
birrp              0000000000431396  xmedian_                 2078  math.f
birrp              000000000056B85A  MAIN__                    782  birrp.f
birrp              000000000040292E  Unknown               Unknown  Unknown
libc.so.6          00007FD7D5B85830  Unknown               Unknown  Unknown
birrp              0000000000402829  Unknown               Unknown  Unknown
Aborted (core dumped)

I am attaching the folder.Downloadb.tar.gz

Hi

After I update my mac os from 10.10 to 10.11 xcode does not recognize intel fortran compiler . I did some modification which was changing the address of compiler manually to intel fortran compiler installed directory in ifort plugins file which was in :

/Library/Application Support/Developer/6.4/Xcode/Plug-ins/IFORT 15.0 Compiler.xcplugin

my xcode version was 6.4 and intel compiler was 2015 update 2 . everything was fine (except debugger when using module or allocatable variable ) . again I updated my mac to Sierra in last week and Xcode 6.4 was not compatible with this version of mac so I updated my xcode to 8.0 . again xcode did not recognized my intel fortran compiler . after some searching web I find out I have to create a Shared folder and put the plugin inside it like :

/Library/Application Support/Developer/Shared/Xcode/Plug-ins/IFORT 15.0 Compiler.xcplugin

Now xcode recognize my intel fortran compiler but when i use build ther is a error ( intel fortran works in terminal and I can compile my fortran file inside terminal using ifort myfile)

ipo: warning #11016: Warning unknown option -no_deduplicate

ld: file not found: /Users/Alfred/Library/Developer/Xcode/DerivedData/main-cmdzktxskmwirzcgutlzgyrrqxgd/Build/Intermediates/main.build/Debug/main.build/Objects-normal/x86_64/main_lto.o

Command /opt/intel/composer_xe_2015.2.132/bin/intel64/ifort failed with exit code 1

I Updated the DVTPlugInCompatibilityUUID in info.plist with xcode 8 UUID but still get this error . 

I may have found a compiler bug on Linux, for ifort version 17.0.0 on a Debian 'testing' distribution (uname -a: Linux e5470 4.6.0-1-amd64 #1 SMP Debian 4.6.4-1 (2016-07-18) x86_64 GNU/Linux).

The following Fortran code snippet hangs indefinitely within the loop, with CPU at 100%, if compiled with optimization options -O2 -xHost. It works with a previous ifort release; with gfortran; or if the inner loop 'dot_product' is rewritten term by term, as in the listing below.

subroutine k2r_foldinto_WScell(kvec_conventional,nplanes,bzplanes_array,already_inside_before_folding, && kvec_folded)
  implicit none integer,parameter :: ndimens=3
  real(kind(0.d0)),intent(IN) :: kvec_conventional(ndimens)
  integer,intent(IN) :: nplanes
  real(kind(0.d0)),intent(IN) :: bzplanes_array(ndimens+1,nplanes) ! Indexed in: xyz d/2, iplane.
  logical,intent(OUT) :: already_inside_before_folding

  real(kind(0.d0)) kvec_folded(ndimens), & ! Indexed in: xyz.& kvec_relative(ndimens), && bz_distance_squared, max_bz_distance_squared
  integer iplane,closest_bz !, idimen

  already_inside_before_folding = .true.
  kvec_folded(1:ndimens) = kvec_conventional(1:ndimens) ! Assume initially that no folding is needed.
234 continue
  max_bz_distance_squared = dot_product( kvec_folded, kvec_folded ) ! Get the search started: distance from Gamma.

  closest_bz = 0 ! Initial trial assumption that the point is closest to the BZ instance around Gamma, conventionally labeled as 0.
  do iplane=1,nplanes
     kvec_relative(1:ndimens) = kvec_folded(1:ndimens) - bzplanes_array(1:ndimens,iplane) ! Intel ifort 17.0.0 bug with -O2 and -mavx:
   ! bz_distance_squared = dot_product( kvec_relative,kvec_relative )
   ! Workaround:
    bz_distance_squared = kvec_relative(1)*kvec_relative(1) + &&                   kvec_relative(2)*kvec_relative(2) + &&                   kvec_relative(3)*kvec_relative(3)
      if( bz_distance_squared.lt.max_bz_distance_squared ) then
        max_bz_distance_squared = bz_distance_squared
        closest_bz = iplane
      endif
    enddo ! iplane
    if( closest_bz.gt.0 ) then
      kvec_folded(1:ndimens) = kvec_folded(1:3) - bzplanes_array(1:ndimens,closest_bz)
      already_inside_before_folding = .false.
      goto 234
    endif
end subroutine k2r_foldinto_WScell

Thanks for any possible confirmation/feedback,

--

Alberto. 

Hi all, i'm trying to build netcdf-4.4.1. with intel parallel studio xe 2016 update 3 in Red Hat Enterprise Linux Server 7.2, following this url:

https://software.intel.com/en-us/articles/performance-tools-for-software-developers-building-netcdf-with-the-intel-compilers

It presents the following error when running make:

libtool: compile:  icc -DHAVE_CONFIG_H -I. -I.. -I../include -I/opt/hdf5/include -I/opt/curl/include -O3 -xHost -ip -no-prec-div -static-intel -MT libnetcdf4_la-nc4file.lo -MD -MP -MF .deps/libnetcdf4_la-nc4file.Tpo -c nc4file.c  -fPIC -DPIC -o .libs/libnetcdf4_la-nc4file.o
nc4file.c(2322): error: identifier "H5LT_FILE_IMAGE_DONT_COPY" is undefined
                        H5LT_FILE_IMAGE_DONT_COPY|H5LT_FILE_IMAGE_DONT_RELEASE
                        ^

nc4file.c(2322): error: identifier "H5LT_FILE_IMAGE_DONT_RELEASE" is undefined
                        H5LT_FILE_IMAGE_DONT_COPY|H5LT_FILE_IMAGE_DONT_RELEASE
                                                  ^

compilation aborted for nc4file.c (code 2)
make[2]: *** [libnetcdf4_la-nc4file.lo] Error 1
make[2]: Leaving directory `/root/libs/netcdf-4.4.1/libsrc4'
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory `/root/libs/netcdf-4.4.1'
make: *** [all] Error 2
^C[1]+  Exit 2                  make &>make.log

Any ideas to fix this?

Thanks in advance

I am running into an issue with compiling code with ifort 16 which worked with previous versions of ifort and works with e.g. gfortran. The code in question is here:

https://gist.github.com/astrofrog/47ee268a8e71dc6760ec3e0e1b4beca7

and I have put a tar file for convenience here:

https://dl.dropboxusercontent.com/u/3770121/ifort_issue.tgz

I have tried to boil it down to as simple a code as possible. When compiling using make.sh, I get the following error:

grid_geometry_cartesian_3d.f90(11): error #6457: This derived type name has not been declared.   [GRID_CELL]

  type(grid_cell) :: cell

-------^

compilation aborted for grid_geometry_cartesian_3d.f90 (code 1)

However, if I rename one of the 'equal' functions, everything works as expected. Is this a bug in ifort?

Thanks!

Tom

Basically I have a derived type that represents a cell and I wanted it to have pointers to its neighbours. This is the data structure I would like to have:

module XYZ
...
    type pointerToCellContainer
        type( cellType ), pointer :: p
    end type pointerToCellContainer
...
    type cellType(nDOFs, nEQs)
        integer(itp), len :: nDOFs
        integer(isp), len :: nEQs
        ...
        type( pointerToCellContainer ), dimension(2) :: nb
        ...
    contains
        ...
    end type cellType
...
end module XYZ

While the module compiles fine when i try to atribute a cell to the pointer in the main program the compiler returns the error

main.f90(130): error #6795: The target must be of the same type and kind type parameters as the pointer.   [P]
        mesh%cellList(cID)%nb(1)%p => mesh%cellList(cID-1)
---------------------------------^
main.f90(131): error #6795: The target must be of the same type and kind type parameters as the pointer.   [P]
        mesh%cellList(cID)%nb(2)%p => mesh%cellList(cID+1)
---------------------------------^

My main doubt is if I'm actually trying to do something not allowed by the 2008 standard or if it's just a syntax problem. I'm doing this code to teach myself some features that I never got to use in production code (mainly parameterized derived types, submodules and other OO features) so workarounds and alternative design solution are also welcome.