代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876075
f90 initialization_11.f90
! { dg-do run }
! PR fortran/32903
!
program test
implicit none
type data_type
integer :: i=2
end type data_type
type(data_type) :: d
d%i = 4
call set(d)
if(d%i /= 2) then
print
www.eeworm.com/read/366702/2876092
f90 nested_reshape.f90
! { dg-do run }
! PR 20436: This used to give a runtime error.
program nested_reshape
implicit none
real :: k(8,2)
real :: o(8,2)
k = reshape((/1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0, &
www.eeworm.com/read/366702/2876180
f90 cray_pointers_6.f90
! { dg-do compile }
! { dg-options "-fcray-pointer" }
! PR fortran/25358
subroutine adw_set
implicit none
real*8 Adw_xabcd_8(*)
pointer(Adw_xabcd_8_ , Adw_xabcd_8)
common/ Adw / Adw_
www.eeworm.com/read/366702/2876229
f90 integer_exponentiation_5.f90
! { dg-do run }
! { dg-options "-fno-range-check" }
module mod_check
implicit none
interface check
module procedure check_i8
module procedure check_i4
module procedure check_r8
mo
www.eeworm.com/read/366702/2877116
f90 sum_zero_array_1.f90
! { dg-do run }
! PR 30321: This used to segfault.
program xzero
implicit none
integer :: ii(1,0)
logical :: ll(1,0)
character (len=80) line
ll = .true.
write (unit=line, fmt="(I6)") sum(
www.eeworm.com/read/366702/2877163
f90 vector_subscript_2.f90
! Like vector_subscript_1.f90, but check subscripts in multi-dimensional
! arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n = 5
integer :: i1, i2, i3
integer, dimensi
www.eeworm.com/read/366702/2877186
f03 test_common_binding_labels.f03
! { dg-do compile }
module x
use, intrinsic :: iso_c_binding, only: c_double
implicit none
common /mycom/ r, s ! { dg-error "does not match" }
real(c_double) :: r
real(c_double) :: s
bind
www.eeworm.com/read/366702/2877224
f90 streamio_1.f90
! { dg-do run }
! PR25828 Stream IO test 1
! Contributed by Jerry DeLisle .
PROGRAM stream_io_1
IMPLICIT NONE
integer(kind=4) i
real(kind=8) r
OPEN(UNIT=11, ACCESS="stre
www.eeworm.com/read/366702/2877349
f90 equiv_substr.f90
! { dg-do compile }
!
! PR fortran/34557
!
! Substrings with space before '(' were not properly parsed.
!
implicit none
character :: A(2,2)*2, B(2)*3, C*5
equivalence (A (2,1) (1:1), B (1) (2:3), C (3
www.eeworm.com/read/366702/2877748
f90 lrshift_1.f90
! { dg-do run }
! { dg-options "-std=gnu -w" }
! { dg-additional-sources lrshift_1.c }
program test_rshift_lshift
implicit none
integer :: i(15), j, n
integer, external :: c_lshift, c_rshift