代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876467
f90 boz_1.f90
! { dg-do run }
! { dg-options "-std=gnu" }
! Test the boz handling
program boz
implicit none
integer(1), parameter :: b1 = b'00000001'
integer(2), parameter :: b2 = b'0101010110101010'
www.eeworm.com/read/366702/2876496
f90 array_alloc_1.f90
! PR 21104. Make sure that either f() or its caller will allocate
! the array data. We've decided to make the caller allocate it.
! { dg-do run }
program main
implicit none
call test (f ())
cont
www.eeworm.com/read/366702/2876528
f90 ibits.f90
! { dg-do run }
! Test that the mask is properly converted to the kind type of j in ibits.
program ibits_test
implicit none
integer(8), parameter :: n = z'00000000FFFFFFFF' ! { dg-warning "BOZ lit
www.eeworm.com/read/366702/2876579
f90 interface_11.f90
! { dg-do compile }
! Tests the fix for PR30883 in which interface functions and
! their results did not get an implicit type.
!
! Contributed by Joost VandeVondele
!
MODULE M1
IMP
www.eeworm.com/read/366702/2876617
f90 merge_char_2.f90
! { dg-do compile }
!
! See PR fortran/31610
!
implicit none
character(len=2) :: a
character(len=3) :: b
print *, merge(a,a,.true.)
print *, merge(a,'aa',.true.)
print *, merge('aa',a,.true.)
print *,
www.eeworm.com/read/366702/2876679
f90 pr18392.f90
! { dg-do run }
! pr 18392
! test namelist with derived types
! Based on example provided by thomas.koenig@online.de
program pr18392
implicit none
type foo
integer a
real b
end type f
www.eeworm.com/read/366702/2876695
f90 allocate_stat.f90
! { dg-do compile }
! PR fortran/32936
!
!
function all_res()
implicit none
real, pointer :: gain
integer :: all_res
allocate (gain,STAT=all_res)
deallocate(gain)
call bar()
contains
su
www.eeworm.com/read/366702/2876736
f90 pointer_intent_1.f90
! { dg-do run }
! { dg-options "-std=f2003 -fall-intrinsics" }
! Pointer intent test
! PR fortran/29624
!
! Valid program
program test
implicit none
type myT
integer :: x
integer, poi
www.eeworm.com/read/366702/2876760
f90 assign_func_dtcomp_1.f90
! { dg-do run }
! { dg-options "-O0" }
!
! Test fix for PR18022.
!
! Contributed by Paul Thomas
!
program assign_func_dtcomp
implicit none
type :: mytype
www.eeworm.com/read/366702/2876783
f90 shift-kind.f90
! { dg-do compile }
! PR 22143: We didn' have shift arguments to eoshift of kind=1
! and kind=2.
program main
implicit none
integer, dimension (3,3) :: a, b, w
integer(kind=2), dimen