FIX: F1001: ctypes.c, Line 448, Extra Parentheses in CALL Stmt

ID: Q51507

The information in this article applies to:

Microsoft FORTRAN for MS-DOS, versions 4.0, 4.01, 4.1, 5.0
Microsoft FORTRAN for OS/2, versions 4.1, 5.0

SYMPTOMS

An attempt to compile an application fails and the compiler generates one of the following messages. For FORTRAN version 5.0:

fatal error F1001: Internal Compiler Error
(compiler file '@(#)ctypes.c:1.11', line 448)

For version 4.1:

fatal error F1001: Internal Compiler Error
(compiler file '@(#)ctypes.c:1.89', line 428)

For version 4.01:

fatal error F1001: Internal Compiler Error
(compiler file '@(#)ctypes.c:1.88', line 428)

For version 4.0:

fatal error F1001: Internal Compiler Error
(compiler file '@(#)ctypes.c:1.80', line 426)

If the compiler command line includes the /Fs compiler option switch, the compiler may generate a protection violation in OS/2, or the system may hang and stop responding in MS-DOS.

CAUSE

The application contains a CALL statement that contains an additional set of parentheses.

RESOLUTION

To address this problem, modify the source code to remove the additional parentheses from the CALL statement parameter.

STATUS

Microsoft has confirmed this to be a problem in FORTRAN versions 4.0, 4.01, 4.1, and 5.0 for MS-DOS and versions 4.1 and 5.0 for OS/2. This problem was corrected in FORTRAN version 5.1 for MS-DOS and OS/2.

MORE INFORMATION

The following code example demonstrates this problem.

Sample Code


C Compile options needed: None

      CHARACTER*3 A
      A = 'A'
      CALL X((A))
      END

Additional query words: 4.00 4.01 4.10 5.00 hangs run-time buglist4.00 buglist4.01 buglist4.10 buglist5.00 fixlist5.10

Keywords :
Version : :4.0,4.01,4.1,5.0
Platform :
Issue type :