代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877137
f90 namelist_46.f90
! { dg-do run }
! PR35627 Namelist read problem with short logical followed by read real
program test
implicit none
LOGICAL :: nlco(200) ! (1:nbeam)
REAL(kind=8):: xlbtna(200) ! (1:nbeam)
www.eeworm.com/read/366702/2877166
f90 direct_io_4.f90
! { dg-do run }
! PR 23321 : Running off the end of a file was not detected with direct I/O.
program main
implicit none
integer(kind=1) :: a, b
integer :: ios, i
a = 42
open (unit=10,status
www.eeworm.com/read/366702/2877385
f90 array_2.f90
! { dg-do run }
! PR tree-optimization/30092
! This caused once an ICE due to internal tree changes
program test
implicit none
integer, parameter :: N = 30
real, dimension(N) :: rho, pre, cs
r
www.eeworm.com/read/366702/2877388
f90 inquire_13.f90
! { dg-do run }
! PR34795 inquire statement , direct= specifier incorrectly returns YES
! Test case from PR, modified by Jerry DeLisle
www.eeworm.com/read/366702/2877430
f90 streamio_2.f90
! { dg-do run }
! PR25828 Stream IO test 2
! Contributed by Jerry DeLisle .
PROGRAM readUstream
IMPLICIT NONE
CHARACTER*3 :: string
INTEGER :: n
string = "123"
n = 135
www.eeworm.com/read/366702/2877454
f90 iostat_1.f90
! { dg-do run }
! PR 23598 - The iostat variable wasn't reset if the previous
! I/O library call had an error.
program main
implicit none
integer :: ios, i
open (10, pad='no', status='scratch')
www.eeworm.com/read/366702/2877510
f90 fmt_exhaust.f90
! { dg-do run }
! PR27304 Test running out of data descriptors with data remaining.
! Derived from case in PR. Submitted by Jerry DeLisle .
program test
implicit no
www.eeworm.com/read/366702/2877513
f90 use_10.f90
! { dg-do run }
module a
implicit none
interface operator(.op.)
module procedure sub
end interface
interface operator(.ops.)
module procedure sub2
end interface
contains
function sub(i)
in
www.eeworm.com/read/366702/2877586
f90 proc_decl_8.f90
! { dg-do compile }
! PR33162 INTRINSIC functions as ACTUAL argument
! Test case adapted from PR by Jerry DeLisle
module m
implicit none
contains
subroutine sub(a)
interf
www.eeworm.com/read/366702/2877600
f90 array_constructor_9.f90
! Like array_constructor_6.f90, but check constructors in which the length
! of each subarray can only be determined at run time.
! { dg-do run }
program main
implicit none
call build (9)
contains