代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/470693/1460314
f 10197.f
IMPLICIT NONE
LOGICAL ERROR
CHARACTER*12 FORM
DATA ERROR /.FALSE./
DATA FORM /' '/
OPEN(UNIT=60,ACCESS='DIRECT',STATUS='SCRATCH',RECL=255)
INQUIRE(UNIT=60,FO
www.eeworm.com/read/460526/1560713
f90 main.f90
program main
use GAME
implicit none
call sglDisplaySub(display)
call sglMouseMoveSub(MouseMove)
call sglEnableReshape(0)
call sglCreateWindow(50,50,SX,SY,1)
call InitGame()
c
www.eeworm.com/read/240162/4579094
c oper1.c
// { dg-do run }
// Copyright 2002 Free Software Foundation
// Contributed by Jason Merrill
// Make sure the GNU extension of accepting dropping cv-qualifiers for
// the implicit
www.eeworm.com/read/240162/4583518
f 10197.f
IMPLICIT NONE
LOGICAL ERROR
CHARACTER*12 FORM
DATA ERROR /.FALSE./
DATA FORM /' '/
OPEN(UNIT=60,ACCESS='DIRECT',STATUS='SCRATCH',RECL=255)
INQUIRE(UNIT=60,FO
www.eeworm.com/read/233448/4671292
c oper1.c
// { dg-do run }
// Copyright 2002 Free Software Foundation
// Contributed by Jason Merrill
// Make sure the GNU extension of accepting dropping cv-qualifiers for
// the implicit
www.eeworm.com/read/233448/4678693
f90 ptr.f90
program ptr
implicit none
integer, pointer, dimension(:) :: a, b
integer, pointer :: p
integer, target :: i
allocate (a(1:6))
a = (/ 1, 2, 3, 4, 5, 6 /)
b => a
if (any (b .
www.eeworm.com/read/233448/4678756
f90 intrinsic_matmul.f90
! Program to test the MATMUL intrinsic
program intrinsic_matmul
implicit none
integer, dimension(2, 3) :: a
integer, dimension(3, 2) :: b
integer, dimension(2) :: x
integer, dimension(3
www.eeworm.com/read/233448/4678771
f90 strcmp.f90
program test
implicit none
character(len=20) :: foo
foo="hello"
if (llt(foo, "hello")) call abort
if (.not. lle(foo, "hello")) call abort
if (lgt("hello", foo)) call abort
if (.
www.eeworm.com/read/233448/4678772
f90 der_init.f90
! Program to test derived type initializers and constructors
program der_init
implicit none
type t
integer :: i
integer :: j = 4
end type
integer :: m, n
! Explicit initial
www.eeworm.com/read/233448/4678817
f90 der_init_2.f90
! PR 15314
! We were looking at the type of the initialization expression, not the type
! of the field.
program der_init_2
implicit none
type foo
integer :: a(3) = 42
integer :: b = 123