- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
I get the above error message when compiling the following source code:
[fortran]NL_TITLE = 0 if (nbLines > 0) then allocate(character(len=szLines) :: Lines(nbLines)) do I=1,NbLines szLine = len_trim(Lines(I)) if (szLine <= 80) then NL_TITLE = NL_TITLE + 1 else indx = 80 NL_TITLE = NL_TITLE + 1 do if (Lines(I)(indx:indx) /= ' ') indx = index(Lines(I)(indx-80+1:indx),' ',back=.true.) + 1 indx = indx + 79 NL_TITLE = NL_TITLE + 1 if (indx > szLine) exit end do end if end do end if [/fortran]The error is located on the line:
[fortran] if (Lines(I)(indx:indx) /= ' ') indx = index(Lines(I)(indx-80+1:indx),' ',back=.true.) + 1[/fortran]
If I replace the line by:
[fortran] if (Lines(I)(indx:indx) /= char(32)) indx = index(Lines(I)(indx-80+1:indx),' ',back=.true.) + 1[/fortran]
No error is detected.
The compiler options I use are:
/nologo /debug:full /Od /fpp /I"IdeCin__Win32_Debug_FR" /I"C:\\Program Files\\VNI\\imsl\\fnl600\\IA32\\include\\static" /assume:nosource_include /DFRENCH /DBATCH /DDVF /DWIN32 /extend_source:132 /Qopenmp /Qsave /align:commons /assume:byterecl /fpe:0 /fpconstant /iface:cvf /module:"IdeCin__Win32_Debug_FR/" /object:"IdeCin__Win32_Debug_FR/" /check:format /check:output_conversion /libs:static /threads /dbglibs /c /dll
Link Copied
4 Replies
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Please provide a complete compilable source and tell us which exact version of the compiler you are using (including update number.)
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Sorry I forgot to mention it:
11.1.051
I will
try to generate a more simple file (because the actual one is a little bit big and use other modules).
If I cannot reproduce the error I will try to send you all the files involved.
Thanks.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Would you please try 11.1.067 (Update 7) before putting a lot of work into a test case? Thanks.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Itcould be a good idea, but, unfortunately myaccount to the support service has expired (since November 2009) so I cannot download compiler updates anymore (the last one I have downloaded is the 11.1.051). I will try to build a test case and if the error persists I will send you the corresponding files so you will be able to test with a more recent version of the compiler.
Thanks.
Update: Finally I was able to download the version 11.1.067. I will try it asap.
Update2: Unfortunately, it was impossible to install this version due to invalid license file (due to expired support).
Thanks.
Update: Finally I was able to download the version 11.1.067. I will try it asap.
Update2: Unfortunately, it was impossible to install this version due to invalid license file (due to expired support).

Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page