代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877416
f90 elemental_args_check_2.f90
! { dg-do compile }
!
! PR fortran/34660
!
! Check for elemental constrain C1277 (F2003).
! Contributed by Joost VandeVondele.
!
MODULE M1
IMPLICIT NONE
CONTAINS
PURE ELEMENTAL SUBROUTINE S1(I,F)
www.eeworm.com/read/366702/2877436
f90 where_operator_assign_4.f90
! { dg-do compile }
! PR fortran/34661 ICE on user-defined assignments in where statements
! Testcase contributed by Joost VandeVondele
MODULE M1
IMPLICIT NONE
TYPE T1
INTEGER :: I
END TYPE T1
www.eeworm.com/read/366702/2877515
f90 namelist_char_only.f90
! { dg-do run }
! { dg-options "-O0" }
! Test patch for PR24416.f90 - a used to come back from the read with var
! prepended.
!
IMPLICIT NONE
CHARACTER(len=10) :: var = "hello"
character(len=10
www.eeworm.com/read/366702/2877602
f90 argument_checking_1.f90
! { dg-do run }
!
! PR fortran/30940
program main
implicit none
character(len=10) :: digit_string = '123456789', str
character :: digit_arr(10)
call copy(digit_string, digit_arr)
call copy(d
www.eeworm.com/read/366702/2877762
f90 shape_4.f90
! PR 35001 - we need to return 0 for the shapes of
! negative extents. Test case adapted from Tobias Burnus.
program main
implicit none
integer :: i,j, a(10,10),res(2)
j = 1
i = 10
res = sh
www.eeworm.com/read/366702/2877780
f90 argument_checking_2.f90
! { dg-do compile }
! { dg-options "-std=f95" }
!
! PR fortran/30940
program main
implicit none
character(len=10) :: digit_string = '123456789', str
character :: digit_arr(10)
call copy(digit_
www.eeworm.com/read/366702/2877782
f90 namelist_27.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
www.eeworm.com/read/366702/2877798
f90 print_c_kinds.f90
! { dg-do run }
program print_c_kinds
use, intrinsic :: iso_c_binding
implicit none
print *, 'c_short is: ', c_short
print *, 'c_int is: ', c_int
print *, 'c_lon
www.eeworm.com/read/351636/3102053
txx vcl_complex.txx
#ifndef vcl_complex_txx_
#define vcl_complex_txx_
// -*- c++ -*-
#include "vcl_complex.h"
#if VCL_USE_IMPLICIT_TEMPLATES
# include "iso/vcl_complex.txx"
#elif !VCL_USE_NATIVE_COMPLEX
# incl
www.eeworm.com/read/351636/3102283
txx vcl_iterator.txx
#ifndef vcl_iterator_txx_
#define vcl_iterator_txx_
// -*- c++ -*-
#include "vcl_iterator.h"
#if VCL_USE_IMPLICIT_TEMPLATES
# include "iso/vcl_iterator.txx"
#elif !VCL_USE_NATIVE_STL
# incl