代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5523354
f90 dummyfn.f90
! Program to test array valued dummy functions
SUBROUTINE dummyfn(deriv)
implicit none
INTERFACE
FUNCTION deriv()
REAL :: deriv(4)
END FUNCTION deriv
END INTERFACE
RE
www.eeworm.com/read/162614/5523357
f90 contained_2.f90
! Arrays declared in parent but used in the child.
program error
implicit none
integer, dimension (10) :: a
contains
subroutine test()
implicit none
a(1) = 0
end subroutine
end
www.eeworm.com/read/162614/5523370
f90 contained_3.f90
! Program to check using parent variables in more than one contained function
program contained_3
implicit none
integer var
contains
subroutine one
var = 1
end subroutine
subrouti
www.eeworm.com/read/162614/5523375
f90 io_end.f90
! Check we can cope with end labels in IO statements
program m
implicit none
integer i
do while (.true.)
read(*, *, end = 1) i
end do
1 continue
end program m
www.eeworm.com/read/162614/5523378
f90 arrayio.f90
! Program to test array IO. Should print the numbers 1-20 in order
program arrayio
implicit none
integer, dimension(5, 4) :: a
integer i, j
do j=1,4
a(:, j) = (/ (i + (j - 1) * 5,
www.eeworm.com/read/162614/5523379
f90 contained_1.f90
! Obscure failure that disappeared when the parameter was removed.
! Works OK now.
module mymod
implicit none
contains
subroutine test(i)
implicit none
integer i
end subroutine
end m
www.eeworm.com/read/162614/5526000
f90 pr19928-1.f90
! PR 19928. Check the use of constant substring indexes in a
! scalarization loop.
! { dg-do run }
program main
implicit none
character (len = 5), dimension (2) :: a
character (len = 3), dimens
www.eeworm.com/read/162614/5526027
f90 arrayio_derived_2.f90
! { dg-do compile }
! PR 24266: IO to/from arrays that are components of derived types.
program main
implicit none
type ice
character(len=80) :: mess(3)
end type ice
type(ice) :: tp
int
www.eeworm.com/read/162614/5526105
f90 endfile_2.f90
! { dg-do run }
! pr18778 abort on endfile without opening unit
program test
implicit none
integer i
endfile(8)
rewind(8)
read(8,end=0023)i
call abort ! shou
www.eeworm.com/read/162614/5526213
f90 userdef_operator_1.f90
! { dg-do compile }
! Testcase from PR 25396: User defined operators returning arrays.
module geometry
implicit none
interface operator(.cross.)
module procedure cross
end interface
cont