代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873131
f90 read_null_string.f90
! pr 16080, segfault on reading an empty string
implicit none
integer t
character*20 temp_name
character*2 quotes
open(unit=7,status='SCRATCH')
quotes = '""""
www.eeworm.com/read/366702/2873193
f90 enum_3.f90
! Program to test the initialisation range of enumerators
! and kind values check
program main
implicit none
enum, bind (c)
enumerator :: red , yellow =255 , blue
end enum
enum, bind
www.eeworm.com/read/366702/2873197
f90 retarray.f90
! Program to test functions returning arrays
program testfnarray
implicit none
integer, dimension (6, 5) :: a
integer n
! These first two shouldn't require a temporary.
a = 0
a = test
www.eeworm.com/read/366702/2873210
f90 enum_2.f90
! Program to test the incremental assignment of enumerators
program main
implicit none
enum, bind (c)
enumerator :: red = 4 , yellow, blue
enumerator green
end enum
enum, bind (c)
www.eeworm.com/read/366702/2873219
f90 intrinsic_mmval.f90
! Program to test the MINVAL and MAXVAL intrinsics
program testmmval
implicit none
integer, dimension (3, 3) :: a
integer, dimension (3) :: b
logical, dimension (3, 3) :: m, tr
integer
www.eeworm.com/read/366702/2873222
f90 backspace.f90
! pr 15755
implicit none
character*1 C
open(10)
write(10,*)'a'
write(10,*)'b'
write(10,*)'c'
rewind(10)
read(10,*)C
backspace(10
www.eeworm.com/read/366702/2873244
f90 intrinsic_mmloc.f90
! Program to test the MINLOC and MAXLOC intrinsics
program testmmloc
implicit none
integer, dimension (3, 3) :: a
integer, dimension (3) :: b
logical, dimension (3, 3) :: m, tr
integer
www.eeworm.com/read/366702/2876109
f90 o3-pr36119.f90
! { dg-do compile }
SUBROUTINE check_dnucint_ana (dcore)
IMPLICIT NONE
INTEGER, PARAMETER :: dp=8
REAL(dp), DIMENSION(10, 2), INTENT(IN),&
OPTIONAL :: dcore
www.eeworm.com/read/366702/2876349
f90 entry_dummy_ref_3.f90
! { dg-do compile }
!
! PR fortran/33818
!
subroutine ExportZMX(lu)
implicit none
integer :: lu
interface
function LowerCase(str)
character(*),intent(in) :: str
character(len(st
www.eeworm.com/read/366702/2876372
f90 null_2.f90
! { dg-do compile }
!
! NULL(...) pointer is not allowed as operand
! PR fortran/20888
!
! Contributed by Joost VandeVondele
!
PROGRAM main
IMPLICIT NONE
REAL, POINTER :: TEST
NULLIFY(TEST)
TE