代码搜索结果

! This file created from test/mpi/f77/info/infotest2f.f with f77tof90 ! -*- Mode: Fortran; -*- ! ! (C) 2003 by Argonne National Laboratory. ! See COPYRIGHT in top-level directory. ! progr

! check F2.x edit descriptors ! PR 14746 CHARACTER*15 LINE RCON21 = 9. RCON22 = .9 WRITE(LINE,'(F2.0,1H,,F2.1)')RCON21,RCON22 READ(LINE,'(F2.0,1X,F2.1)')XRCON21,XRCON22

! { dg-do run } ! { dg-additional-sources f2c_4.c } ! { dg-options "-ff2c -w" } ! Check -ff2c calling conventions ! Return value of REAL function is promoted to C type double ! Return value of CO

! { dg-do run } ! { dg-options "-ff2c" } ! Verifies that array results work with -ff2c ! try all permutations of result clause in function yes/no ! and result clause in interface y

! { dg-do run } ! { dg-options "-ff2c" } ! Verifies that internal functions are not broken by f2c calling conventions program test real, target :: f real, pointer :: q real :: g f = 1.0 q=>f

! { dg-do run } ! { dg-additional-sources f2c_5.c } ! { dg-options "-fno-f2c -w" } ! Check calling conventions without -ff2c program f2c_5 call f2c_5a() end real function f2c_5b(x) double preci

! { dg-do run } ! { dg-options "-ff2c" } ! Verifies that complex pointer results work with -ff2c ! try all permutations of result clause in function yes/no ! and result clause in i

! Make sure the f2c calling conventions work ! { dg-do run } ! { dg-options "-ff2c" } function f(x) f = x end function f complex function c(a,b) c = cmplx (a,b) end function c double complex fu

/************************************************************************************************** Revised: $Date: 2007-07-06 11:19:00 -0700 (Fri, 06 Jul 2007) $ Revision: $Revisio

/************************************************************************************************** Revised: $Date: 2007-07-06 11:19:00 -0700 (Fri, 06 Jul 2007) $ Revision: $Revisio