代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877692
f90 where_nested_1.f90
! { dg-do compile }
! PR 25423: Nested WHERE constructs.
program nested_where
implicit none
integer :: a(4)
logical :: mask1(4) = (/.TRUE., .TRUE., .FALSE., .FALSE./), &
ma
www.eeworm.com/read/366702/2877709
f90 pr19928-2.f90
! Related to PR 19928. Check that foo() is only called once per statement.
! { dg-do run }
program main
implicit none
type t
integer, dimension (5) :: field
end type t
type (t), dimension
www.eeworm.com/read/366702/2877716
f90 initialization_16.f90
! { dg-do compile }
! { dg-options "-std=f95 -Wall" }
!
! PR fortran/34495
!
! Check for invalid Fortran 95 initialization expressions
!
program main
implicit none
real, parameter :: r1 = real(33)
www.eeworm.com/read/366702/2877754
f90 large_integer_kind_2.f90
! { dg-do run }
! { dg-require-effective-target fortran_large_int }
! Testing library calls on large integer kinds (larger than kind=8)
implicit none
integer,parameter :: k = selected_int_kind (
www.eeworm.com/read/366702/2877758
f03 pr32601_1.f03
! { dg-do compile }
! PR fortran/32601
use, intrinsic :: iso_c_binding, only: c_loc, c_ptr
implicit none
! This was causing an ICE, but is an error because the argument to C_LOC
! needs to be a vari
www.eeworm.com/read/366702/2877803
f90 move_alloc.f90
! { dg-do run }
! Test the move_alloc intrinsic.
!
! Contributed by Erik Edelmann
! and Paul Thomas
!
program test_move_alloc
implicit non
www.eeworm.com/read/366702/2881689
c pr26632.c
/* PR middle-end/26632
We used to issue a warning for an implicit cast whose result is not
used. */
/* { dg-do compile } */
/* { dg-options "-Wall" } */
int g (void);
long h (void);
void
f (v
www.eeworm.com/read/291542/8410430
for cfl.for
! copyright:wangaifeng
! DATE :2007-07-25
! Company :GUCAS
real function CFL(u,dx,dy,nx,ny,ighost,gama)
implicit real(a-h,o-z)
real u(-ighost:nx+ighost,-ighos
www.eeworm.com/read/427585/8932274
for mentecaro.for
MODULE mixdat
! Declaration of global parameters and global variables
IMPLICIT NONE
SAVE
integer,parameter::nstep=1.8E5,nn=324,nw=36
integer,parameter::npaux1=40,npaux2=100,np=220
www.eeworm.com/read/376037/9335414
f90 utility.f90
module typedef
implicit none
type vector2f
real x,y
end type
type line
type(vector2f) :: a,b
type(vector2f) :: vector
end type
interface operator(+)
module