代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877491
f03 bind_c_array_params.f03
! { dg-do compile }
module bind_c_array_params
use, intrinsic :: iso_c_binding
implicit none
contains
subroutine sub0(assumed_array) bind(c) ! { dg-error "cannot be an argument" }
integer(c_int
www.eeworm.com/read/366702/2877530
f90 pr35944-2.f90
! { dg-do run }
! { dg-require-effective-target fortran_large_real }
implicit none
integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1)
integer :: i
real(k) :: qda1(10), qda(10
www.eeworm.com/read/366702/2877613
f90 boz_9.f90
! { dg-do run }
! { dg-options "-fno-range-check" }
!
! PR fortran/34342
!
! Test for Fortran 2003 BOZ.
!
program f2003
implicit none
real,parameter :: r2c = real(int(z'3333'))
real,param
www.eeworm.com/read/366702/2877672
f90 streamio_9.f90
! { dg-do run }
! PR29053 Stream IO test 9.
! Contributed by Jerry DeLisle .
! Test case derived from that given in PR by Steve Kargl.
program pr29053
implicit none
real d
www.eeworm.com/read/366702/2880356
c c99-impl-int-2.c
/* Test for implicit int: in C90 only. Function parameters in old-style
function definition.
*/
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-std=iso9899:1
www.eeworm.com/read/366702/2880953
c c90-impl-int-2.c
/* Test for implicit int: in C90 only. Function parameters in old-style
function definition.
*/
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-std=iso9899:1
www.eeworm.com/read/351636/3102341
txx vcl_list.txx
#ifndef vcl_list_txx_
#define vcl_list_txx_
// -*- c++ -*-
#include "vcl_list.h"
#if VCL_USE_IMPLICIT_TEMPLATES
# include "iso/vcl_list.txx"
#elif !VCL_USE_NATIVE_STL
# include "emulation/v
www.eeworm.com/read/258969/4348288
nc mlme_igame.nc
/**
* MLME-iGAME-Service Access Point
*
* @author IPP HURRAY http://www.hurray.isep.ipp.pt/art-wise
* @author Andre Cunha
* A. Koub鈇, M. Alves, E. Tovar " i-GAME: An Implicit GTS Allocati
www.eeworm.com/read/161040/5563849
txt script_77.txt
---------- emp_data.txt ----------
/*
* 范例名称：数据准备
* 文件名称：emp_data.txt
*/
--目前使用scott中的emp,dept数据.不用重建emp
---------- implicursor.txt ----------
/*
* 范例名称：隐式cursor(Implicit Curso
www.eeworm.com/read/473769/6839495
f90 ans0605.f90
program main
implicit none
integer, parameter :: length = 79
character(len=length) :: input, output
integer i,j
write(*,*) "请输入一个字串"
read(*,"(A79)") input
j=1
do i=1, len_t