Microsoft KB Archive/57571

= Passing Variables with the SYSTEM Call =

Article ID: 57571

Article Last Modified on 12/1/2003

-

APPLIES TO


 * Microsoft FORTRAN Compiler 4.1
 * Microsoft FORTRAN Compiler 5.0
 * Microsoft FORTRAN Compiler 5.1
 * Microsoft FORTRAN Compiler 4.1
 * Microsoft FORTRAN Compiler 5.0
 * Microsoft FORTRAN Compiler 5.1
 * Microsoft FORTRAN PowerStation 1.0 Standard Edition
 * Microsoft Fortran PowerStation 1.0a for MS-DOS
 * Microsoft FORTRAN PowerStation 32
 * Microsoft FORTRAN PowerStation 32

-



This article was previously published under Q57571



SUMMARY
The C Run-time function, SYSTEM, is available within the FORTRAN Run Time Library. It is possible to pass a variable argument within that function call. The variable can also be a concatenated variable. Below is an example demonstrating this feature.

NOTE: SYSTEM is a C function within the FORTRAN Library. Any limitation or characteristics that are encountered are those of the C convention and not of FORTRAN (for example, null terminated strings).



Sample Code
c...This program will demonstrate the use of a concatenated c...variable argument for the SYSTEM function call. It has c...the same effect as typing DIR *.FOR at the MS-DOS prompt.

c..Interface statement

interface to integer*2 function system[c] +(string[reference]) character*1 string end

c..Variable set up and function call

integer*2 system character*4 str character*5 ing character*9 all str='dir' ing='*.for'c  ! c treats this as a null terminated C string all=str//ing  ! Concatenate the string as 'dir *.for' i=system(all) ! Pass a variable to SYSTEM end

Additional query words: kbinf 1.00 4.00 4.10 5.00 5.10

Keywords: kblangfortran KB57571

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.