代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873257
f90 strcommon_1.f90
! PR14081 character variables in common blocks.
subroutine test1
implicit none
common /block/ c
character(len=12) :: c
if (c .ne. "Hello World") call abort
end subroutine
subroutine test2
www.eeworm.com/read/366702/2876084
f90 write_recursive.f90
! { dg-do run }
! PR26766 Recursive I/O with internal units
! Test case derived from example in PR
! Submitted by Jerry DeLisle
program pr26766
implicit none
character (le
www.eeworm.com/read/366702/2876130
f90 argument_checking_10.f90
! { dg-do compile }
!
! PR fortran/34425
!
! Contributed by Joost VandeVondele
!
IMPLICIT NONE
INTEGER :: i(-1:1)
INTEGER :: j(-2:-1)
CALL S(i)
CALL S(j) ! { dg-warning "Actual argument contains too f
www.eeworm.com/read/366702/2876230
f03 binding_label_tests_9.f03
! { dg-do compile }
module x
use iso_c_binding
implicit none
private :: bar ! { dg-warning "PRIVATE but has been given the binding label" }
private :: my_private_sub
private :: my_private_su
www.eeworm.com/read/366702/2876258
f90 unf_read_corrupted_1.f90
! { dg-do run }
! Test the error message when an unformatted file has become
! corrupted.
program main
implicit none
integer(kind=4) :: i1, i2
integer :: ios
character(len=50) :: msg
! Writ
www.eeworm.com/read/366702/2876376
f90 repeat_3.f90
! REPEAT intrinsic, test for PR 31304
! We check that REPEAT accepts all kind arguments for NCOPIES
!
! { dg-do run }
program test
implicit none
integer(kind=1) i1
integer(kind=2) i2
integer(
www.eeworm.com/read/366702/2876696
f90 array_alloc_2.f90
! Like array_alloc_1.f90, but check cases in which the array length is
! not a literal constant.
! { dg-do run }
program main
implicit none
integer, parameter :: n = 100
call test (n, f1 ())
c
www.eeworm.com/read/366702/2876811
f90 pr32222.f90
!PR fortran/32222
! { dg-do compile }
! { dg-final { cleanup-modules "splinemod" } }
module splinemod
implicit none
integer, parameter :: dl = KIND(1.d0)
Type lSamples
integer l(10)
end Type lSampl
www.eeworm.com/read/366702/2876825
f90 char_pointer_func.f90
! { dg-do run }
program char_pointer_func
! Test assignments from character pointer functions, required
! to fix PR17192 and PR17202
! Provided by Paul Thomas pault@gcc.gnu.org
implicit none
chara
www.eeworm.com/read/366702/2876832
f03 value_6.f03
! { dg-do run }
! Verify by-value passing of character arguments w/in Fortran to a bind(c)
! procedure.
! PR fortran/32732
module pr32732
use, intrinsic :: iso_c_binding, only: c_char
implicit