代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876303
f90 data_array_4.f90
! { dg-do compile }
! PR32928 DATA statement with array element as initializer is rejected
IMPLICIT NONE
INTEGER , PARAMETER :: NTAB = 3
REAL :: SR(NTAB) , SR3(NTAB)
DATA SR/NTAB*0.0/ , SR3/NTAB*0.0/
www.eeworm.com/read/366702/2876327
f90 is_iostat_end_eor_1.f90
! { dg-do run }
! Test for the Fortran 2003 intrinsics is_iostat_end & is_iostat_eor
!
program test
use iso_fortran_env
implicit none
if ((.not. is_iostat_end(IOSTAT_END)) .or. is_iostat_end(0))
www.eeworm.com/read/366702/2876388
f90 streamio_3.f90
! { dg-do run }
! PR25828 Stream IO test 3, tests read_x and inquire.
! Contributed by Jerry DeLisle .
program streamio_3
implicit none
integer :: i(6),j
character
www.eeworm.com/read/366702/2876565
f90 array_constructor_5.f90
! { dg-do run }
! PR22327
program array_constructor
implicit none
integer :: a(6), i
i = 6
a = (/ 1, 2, 3, 4, 5, i /)
do i = 1, 6
if (a(i) /= i) call abort()
end do
end
www.eeworm.com/read/366702/2876697
f90 iso_fortran_env_1.f90
! { dg-do run }
module iso_fortran_env
real :: x
end module iso_fortran_env
subroutine bar
use , intrinsic :: iso_fortran_env
implicit none
if (file_storage_size /= 8) call abort
if (chara
www.eeworm.com/read/366702/2876800
f90 argument_checking_6.f90
! { dg-do compile }
! PR fortran/32669
!
! Contributed by Janus Weil
!
program tfe
implicit none
real,dimension(-1:1) :: w
real,dimension(1:4) :: x
real,dimension(0:3) :: y
re
www.eeworm.com/read/366702/2876821
f90 nan_3.f90
! { dg-do run }
! { dg-options "-fno-range-check" }
! { dg-options "-fno-range-check -mieee" { target sh*-*-* } }
!
! PR fortran/34319
!
! Check support of INF/NaN for I/O.
!
program main
implicit n
www.eeworm.com/read/366702/2876953
f90 bound_simplification_1.f90
! { dg-do run }
! { dg-options "" }
implicit none
real :: f(10,10,10,3,4)
integer, parameter :: upper(5) = ubound(f), lower(5) = lbound (f)
integer :: varu(5), varl(5)
varu(:) = ubound(f)
www.eeworm.com/read/366702/2877169
f90 streamio_11.f90
! { dg-do run }
! PR29277 Stream IO test 11, tests formatted form.
! Contributed by Tobias Burnas.
program stream_test
implicit none
character(len=*), parameter :: rec1 = 'record1'
charact
www.eeworm.com/read/366702/2877325
f03 c_loc_tests_12.f03
! { dg-do compile }
!
! Test for PR 35150, reduced testcases by Tobias Burnus
!
module test1
use, intrinsic :: iso_c_binding
implicit none
contains
subroutine sub1(argv) bind(c,name="sub1")