代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876236
f90 error_format.f90
! { dg-do run }
! { dg-shouldfail "Runtime error format check" }
! PR32456 IO error message should show Unit/Filename
program test
implicit none
integer :: i
open(99, status="scratch")
read(99
www.eeworm.com/read/366702/2876260
f90 char_pointer_assign.f90
! { dg-do run }
program char_pointer_assign
! Test character pointer assignments, required
! to fix PR18890 and PR21297
! Provided by Paul Thomas pault@gcc.gnu.org
implicit none
character*4,
www.eeworm.com/read/366702/2876280
f90 alloc_comp_auto_array_1.f90
! { dg-do run }
! Fix for PR29699 - see below for details.
!
! Contributed by Tobias Burnus
!
PROGRAM vocabulary_word_count
IMPLICIT NONE
TYPE VARYING_STRING
CHARACTER,D
www.eeworm.com/read/366702/2876320
f90 read_noadvance.f90
! { dg-do run }
! pr24719, non-advancing read should read more than one line
! test contributed by jerry delisle
implicit none
character(1) :: chr
character(2
www.eeworm.com/read/366702/2876379
f90 der_array_1.f90
! { dg-do run }
! Test derived type constructors for derived types containing arrays.
! PR16919
program der_array_1
implicit none
integer n
integer m
! The 4 components here test known shape a
www.eeworm.com/read/366702/2876535
f90 arrayio_derived_1.f90
! { dg-do run }
! PR 24862: IO for arrays of derived type handled incorrectly.
program arrayio_derived_1
implicit none
type tp
integer :: i
character(len=1) :: c
end type tp
type(tp)
www.eeworm.com/read/366702/2876607
f90 bounds_check_11.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Array bound checking" }
! PR fortran/33745
!
! Don't check upper bound of assumed-size array
!
program test
implicit none
intege
www.eeworm.com/read/366702/2876699
f90 pointer_intent_3.f90
! { dg-do compile }
! { dg-options "-std=f2003 -fall-intrinsics" }
! { dg-shouldfail "Invalid code" }
!
! Pointer intent test
! PR fortran/29624
!
! Valid program
program test
implicit none
type myT
www.eeworm.com/read/366702/2876726
f90 zero_length_1.f90
! { dg-do run }
! PR libfortran/31210
program test
implicit none
integer :: l = 0
character(len=20) :: s
write(s,'(A,I1)') foo(), 0
if (trim(s) /= "0") call abort
contains
function fo
www.eeworm.com/read/366702/2876792
f90 array_constructor_11.f90
! Like array_constructor_6.f90, but check iterators with non-default stride,
! including combinations which lead to zero-length vectors.
! { dg-do run }
program main
implicit none
call build (77)