代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873322
f90 intrinsic_sign.f90
! Program to test SIGN intrinsic
program intrinsic_sign
implicit none
integer i, j
real r, s
i = 2
j = 3
if (sign (i, j) .ne. 2) call abort
i = 4
j = -5
if (sign (i, j) .ne
www.eeworm.com/read/366702/2873370
f90 inquiry_1.f90
! Check that inquiry functions are allowed as specification expressions.
subroutine inquiry(x1)
implicit none
real, dimension(1:), intent(out) :: x1
real, dimension(1:size(x1)) :: x3
x3 = 0
www.eeworm.com/read/366702/2876201
f90 volatile10.f90
! { dg-do run }
! { dg-options "-fdump-tree-optimized -O3" }
! Test setting host-/use-associated variables as VOLATILE
! PR fortran/30522
module impl
implicit REAL (A-Z)
volatile :: x
end module
www.eeworm.com/read/366702/2876220
f90 bound_1.f90
! { dg-do run }
implicit none
type test_type
integer, dimension(5) :: a
end type test_type
type (test_type), target :: tt(2)
integer i
i = ubound(tt(1)%a, 1)
if (i/=5) call abort(
www.eeworm.com/read/366702/2876345
f03 bind_c_usage_7.f03
! { dg-do compile }
module x
use iso_c_binding
implicit none
contains
function bar() bind(c) ! { dg-error "cannot be an array" }
integer(c_int) :: bar(5)
end function bar
function my_st
www.eeworm.com/read/366702/2876401
f90 list_read_8.f90
! { dg-do run }
! PR34676 IO error delayed
! Test case from PR modified by
implicit none
integer::i,badness
character::c
open(unit=10,status="scratch")
write(10,'(a)') '1'
writ
www.eeworm.com/read/366702/2876497
f90 streamio_8.f90
! { dg-do run }
! PR25828 Stream IO test 8
! Contributed by Jerry DeLisle .
PROGRAM stream_io_8
IMPLICIT NONE
integer(kind=8) mypos
character(10) mystring
real(kind=8) r
www.eeworm.com/read/366702/2876533
f90 namelist_28.f90
! { dg-do run }
! PR31052 Bad IOSTAT values when readings NAMELISTs past EOF.
! Patch derived from PR, submitted by Jerry DeLisle
program gfcbug61
implicit none
integer, pa
www.eeworm.com/read/366702/2876640
f90 char_unpack_2.f90
! Test unpack1 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 3, n2 = 4, nv = 10, slen = 9
character (len = slen) :: field
character (len = slen),
www.eeworm.com/read/366702/2876691
f90 array_alloc_3.f90
! Like array_alloc_1.f90, but check multi-dimensional arrays.
! { dg-do run }
program main
implicit none
call test ((/ 3, 4, 5 /), f ((/ 3, 4, 5 /)))
contains
subroutine test (expected, x)
i