代码搜索结果
找到约 10,000 项符合
F 的代码
mrfi_f1f2.c
/**************************************************************************************************
Revised: $Date: 2007-07-06 11:19:00 -0700 (Fri, 06 Jul 2007) $
Revision: $Revisio
mrfi_f1f2.h
/**************************************************************************************************
Revised: $Date: 2007-07-06 11:19:00 -0700 (Fri, 06 Jul 2007) $
Revision: $Revisio
mrfi_f1f2.c
/**************************************************************************************************
Revised: $Date: 2007-07-06 11:19:00 -0700 (Fri, 06 Jul 2007) $
Revision: $Revisio
mrfi_f1f2.h
/**************************************************************************************************
Revised: $Date: 2007-07-06 11:19:00 -0700 (Fri, 06 Jul 2007) $
Revision: $Revisio
f2_edit_1.f90
! 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
f2c_3.f90
! { 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
f2c_1.f90
! 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
3b3f-0f
-- Date/Time -- x Page 3
-- Date/Time -- x Page 4
15 xyzxyzxyz XYZXYZXYZ 20 DEFGHI 123 5
16 45678
ml17f-t-0f
-- Date/Time -- x Page 1
1 Test-INPUT: "Without FF set by
2 Options -b -3 [+2|+3] [-l 15|8]
3 Options -a -3 [+2|+3] [-l 15|8]
4 Options