代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/169697/5413876
f wrong_reals.f
!
! (C) 2004 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
!
program wrong_reals
implicit none
include 'mpif.h'
integer myrank, numprocs, ie
www.eeworm.com/read/169697/5413915
f fcomm1_isr.f
!
! (C) 2001 by Argonne National Laboratory.
! See COPYRIGHT in top-level directory.
!
program main
implicit none
include 'mpif.h'
character*(MPI_MAX_PROCESSOR_NAME)
www.eeworm.com/read/162614/5523244
f90 where_7.f90
! Really test where inside forall with temporary
program evil_where
implicit none
type t
logical valid
integer :: s
integer, dimension(:), pointer :: p
end type
type (t), dimension
www.eeworm.com/read/162614/5523251
f90 test_slice.f90
! Program to test handling of reduced rank array sections. This uncovered
! bugs in simplify_shape and the scalarization of array sections.
program test_slice
implicit none
real (kind = 8), di
www.eeworm.com/read/162614/5523274
f90 string.f90
! Program to test string handling
program string
implicit none
character(len=5) :: a, b
character(len=20) :: c
a = 'Hello'
b = 'World'
c = a//b
if (c .ne. 'HelloWorld') call abo
www.eeworm.com/read/162614/5523386
f90 allocate.f90
! Snippet to test various allocate statements
program test_allocate
implicit none
type t
integer i
real r
end type
type pt
integer, pointer :: p
end type
integer,
www.eeworm.com/read/162614/5525997
f90 deallocate_stat.f90
! { dg-do run }
! PR 17792
! PR 21375
! Test that the STAT argument to DEALLOCATE works with POINTERS and
! ALLOCATABLE arrays.
program deallocate_stat
implicit none
integer i
real, poi
www.eeworm.com/read/162614/5526118
f90 reduction.f90
! { dg-do run }
! PR 16946
! Not all allowed combinations of arguments for MAXVAL, MINVAL,
! PRODUCT and SUM were supported.
program reduction_mask
implicit none
logical :: equal(3)
integer,
www.eeworm.com/read/162614/5526440
f90 pr16597.f90
! { dg-do run }
! pr 16597
! libgfortran
! reading a direct access record after it was written did
! not always return the correct data.
program gfbug4
implicit none
integer s
www.eeworm.com/read/162614/5526455
f90 enum_4.f90
! { dg-do compile }
! Program to test ENUM parsing errors
program main
implicit none
enum, bind (c) ! { dg-warning "New in Fortran 2003" }
enumerator :: red, black = 2
enumerator