代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376006/2718074
out returning.out
--
-- Test INSERT/UPDATE/DELETE RETURNING
--
-- Simple cases
CREATE TEMP TABLE foo (f1 serial, f2 text, f3 int default 42);
NOTICE: CREATE TABLE will create implicit sequence "foo_f1_seq" for serial
www.eeworm.com/read/366702/2873127
f90 nestcons.f90
! Program to test array expressions in array constructors.
program nestcons
implicit none
integer, parameter :: w1(3)= (/ 5, 6, 7/)
integer, dimension(6) :: w2
w2 = (/ 1, 2, w1(3:1:-1)
www.eeworm.com/read/366702/2873199
f90 intrinsic_minmax.f90
! Program to test min and max intrinsics
program intrinsic_minmax
implicit none
integer i, j, k, m
real r, s, t, u
i = 1
j = -2
k = 3
m = 4
if (min (i, k) .ne. 1) call abort
www.eeworm.com/read/366702/2873331
f90 allocate.f90
! Test allocation and deallocation.
program test_allocate
call t1 (.true.)
call t1 (.false.)
call t2
contains
! Implicit deallocation and saved aloocated variables.
subroutine t1(first)
real,
www.eeworm.com/read/366702/2876440
f90 minmaxloc_3.f90
! { dg-do run }
! { dg-options "-fdefault-integer-8" }
! Check max/minloc.
! PR fortran/32956, wrong mask kind with -fdefault-integer-8
!
program test
implicit none
integer :: i(1), j(-1:1), res(1
www.eeworm.com/read/366702/2876474
f03 pr32627.f03
! { dg-do run }
! { dg-additional-sources pr32627_driver.c }
! Verify that c_f_pointer exists for string arguments.
program main
use iso_c_binding
implicit none
interface
function get_c_str
www.eeworm.com/read/366702/2876749
f90 new_line.f90
! { dg-do run }
! Checks Fortran 2003's new_line intrinsic function
! PR fortran/28585
program new_line_check
implicit none
character(len=10) :: a1
character(len=10) :: a2(2)
character(len=10)
www.eeworm.com/read/366702/2876780
f90 private_type_9.f90
! { dg-do compile }
! { dg-options "-std=f95" }
!
! PR fortran/33106
!
module m1
implicit none
type, private :: t
integer :: i
end type t
type(t), public :: one ! { dg-error "PRIVATE deriv
www.eeworm.com/read/366702/2877084
f90 common_pointer_1.f90
! { dg-do run }
! PR13415
! Test pointer variables in common blocks.
subroutine test
implicit none
real, pointer :: p(:), q
common /block/ p, q
if (any (p .ne. (/1.0, 2.0/)) .or. (q .ne. 42.
www.eeworm.com/read/366702/2877185
f03 bind_c_usage_16.f03
! { dg-do run }
! { dg-additional-sources bind_c_usage_16_c.c }
!
! PR fortran/34079
!
! Ensure character-returning, bind(C) function work.
!
module mod
use iso_c_binding
implicit none
contains