代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876572
f90 access_spec_1.f90
! { dg-do compile }
! PR fortran/31472
! Access specifications: Valid Fortran 2003 code
module mod
implicit none
private
integer, public :: i
integer, private :: z
integer :: j, x
private
www.eeworm.com/read/366702/2876580
f90 streamio_13.f90
! { dg-do run }
! PR 34405 - BACKSPACE for unformatted stream files is prohibited.
program main
implicit none
integer :: ios
character(len=80) :: msg
open(2003,form="unformatted",access="strea
www.eeworm.com/read/366702/2876582
f90 namelist_29.f90
! { dg-do run }
! Checks the fix for PR30878, in which the inclusion
! of an implicit function result variable in a namelist
! would cause an error.
!
! Contributed by Joost VandeVondele
www.eeworm.com/read/366702/2876594
f90 namelist_44.f90
! { dg-do run }
!
! PR fortran/34530
!
! Skipping over comment line was not working
!
! Test case contributed by Harald Anlauf.
!
program gfcbug77
implicit none
character(len=128) :: file = ""
www.eeworm.com/read/366702/2876704
f90 userdef_operator_1.f90
! { dg-do compile }
! Testcase from PR 25396: User defined operators returning arrays.
module geometry
implicit none
interface operator(.cross.)
module procedure cross
end interface
cont
www.eeworm.com/read/366702/2876906
f90 entry_15.f90
! { dg-do compile }
!
! PR fortran/34137
!
! Entry was previously not possible in a module.
! Checks also whether the different result combinations
! work properly.
!
module m2
implicit none
contai
www.eeworm.com/read/366702/2876947
f90 select_6.f90
! { dg-do compile }
! PR fortran/27457
! This lead to a segfault previously.
implicit none
integer(kind=1) :: i
real :: r(3)
select case (i)
case (129) r(4) = 0
www.eeworm.com/read/366702/2877030
f90 bound_2.f90
! { dg-do run }
! PR fortran/29391
! This file is here to check that LBOUND and UBOUND return correct values
!
! Contributed by Francois-Xavier Coudert (coudert@clipper.ens.fr)
implicit none
integ
www.eeworm.com/read/366702/2877085
f90 multiple_allocation_1.f90
! { dg-do run }
! PR 25031 - We didn't cause an error when allocating an already
! allocated array.
program alloc_test
implicit none
integer :: i
integer, allocatable :: a(:)
intege
www.eeworm.com/read/366702/2877087
f90 array_constructor_2.f90
! { dg-do compile }
! Check that array constructor delimiters match
program bracket_array_constr_2
implicit none
integer :: a(4)
a = (/ 1, 2, 3, 4 ] ! { dg-error "array constructor" }