代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/162614/5526314
f backspace.f
! This file is all about BACKSPACE
! { dg-do run }
integer i, n, nr
real x(10), y(10)
! PR libfortran/20068
open (20, status='scratch')
write (20,*) 1
write (20,*) 2
www.eeworm.com/read/162614/5526342
f longline.f
# 1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.f"
! { dg-do compile }
subroutine foo
character*10 cpnam
character*4 csig
write (34,808) csig,ilax,cp
www.eeworm.com/read/162614/5526429
f wtruncate.f
! { dg-do compile }
! { dg-options "-Wall" }
! This long comment line should not trigger a line-truncation warning with -Wall
PROGRAM foo
WRITE (*,*) "Test" ! Neither this comm
www.eeworm.com/read/162614/5526539
f comma.f
! { dg-do run }
! PR25419 Default input with commas.
! Derived from example given in PR.
! Contributed by Jerry DeLisle
stuff = 1
stuff2 = 2
write(11,'(a)')
www.eeworm.com/read/341021/3259544
in fmisc.f.in
! -*- Mode: Fortran; -*-
!
! (C) 2001 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
!
program main
implicit none
include 'mpif.h'
@F77MPIOIN
www.eeworm.com/read/341021/3259551
in fperf.f.in
! -*- Mode: Fortran; -*-
!
! (C) 2001 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
!
program main
implicit none
include 'mpif.h'
@F77MPIOIN
www.eeworm.com/read/341021/3259900
f flogical.f
subroutine flogical( itrue, ifalse )
logical itrue, ifalse
itrue = .TRUE.
ifalse = .FALSE.
return
end
www.eeworm.com/read/341021/3260535
f fpilog.f
!
! (C) 2001 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
!
!**********************************************************************
! pi.f - compute pi by integratin
www.eeworm.com/read/340665/3276772
f 20010610.f
DO I = 0, 255
IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT
ENDDO
END