代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876585
f90 bind_c_usage_15.f90
! { dg-do run }
!
! PR fortran/34187
! The binding label was not exported for private procedures
! with public generic interfaces.
!
module mod
use iso_c_binding, only: c_int
implicit none
priva
www.eeworm.com/read/366702/2877007
f90 read_bad_advance.f90
! { dg-do run }
! PR27138 Failure to advance line on bad list directed read.
! Submitted by Jerry DeLisle
program test
implicit none
integer :: ntype = 55
www.eeworm.com/read/366702/2877023
f90 specification_type_resolution_2.f90
! { dg-do compile }
! Tests the fix for PR30283 in which the type of the result
! of bar was getting lost
! Contributed by Harald Anlauf
module gfcbug50
implicit none
contains
s
www.eeworm.com/read/366702/2877041
f90 mapping_1.f90
! { dg-do run }
! Tests the fix for PR31213, which exposed rather a lot of
! bugs - see the PR and the ChangeLog.
!
! Contributed by Joost VandeVondele
!
module mykinds
implicit no
www.eeworm.com/read/366702/2877057
f90 direct_io_2.f90
! { dg-do run }
!
! this testcase derived from NIST test FM413.FOR
! tests writing direct access files in ascending and descending
! REC's.
PROGRAM FM413
IMPLICIT LOGICAL (L)
IMPLICI
www.eeworm.com/read/366702/2877077
f pr19872.f
! { dg-do run }
! PR 19872 - closed and re-opened file not overwriten
implicit none
integer i(4)
data i / 4 * 0 /
open(1,form='FORMATTED',status='UNKNOWN')
write(1,'("1
www.eeworm.com/read/366702/2877096
f90 transfer_simplify_3.f90
! { dg-do run }
! { dg-options "-fno-range-check" }
! PR fortran/32083
!
! Test transfers of +Inf and -Inf
! Testcase contributed by Jos de Kloe
!
PROGRAM TestInfinite
IMPLICIT NO
www.eeworm.com/read/366702/2877104
f90 alloc_comp_misc_1.f90
! PR 29804
! This used to fail, it was magically fixed; keep in the testsuite so
! that we keep an eye on it.
!
! { dg-do run }
! { dg-options "-fbounds-check" }
program dt_bnd
implicit none
type
www.eeworm.com/read/366702/2877187
f90 namelist_41.f90
! { dg-do run }
! PR34291 Segfault on &end in namelist expanded read of character
implicit none
character(len=10), dimension(2) :: var
namelist /inx/ var
var = "goodbye"
open(unit=11, statu
www.eeworm.com/read/366702/2877346
f90 initialization_10.f90
! { dg-do compile }
!
! PR fortran/32867 - nested initialization expression not simplified
!
! Testcase contributed by H. J. Lu
!
MODULE Readdata_mod
IMPLICIT NONE
Private
Publ