代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877366
f overwrite_1.f
! { dg-do run }
! PR 19872 - closed and re-opened file not overwriten
implicit none
integer i(4)
data i / 4 * 0 /
open(1,form='FORMATTED',status='UNKNOWN')
write(1,'("1
www.eeworm.com/read/366702/2877380
f90 zero_sized_3.f90
! { dg-do run }
! Testcase for PR libfortran/31001
implicit none
integer :: i, j, k
integer, allocatable :: mm(:)
logical, allocatable :: mask(:)
do i = 2, -2, -1
do k = 0, 1
all
www.eeworm.com/read/366702/2877464
f90 isnan_1.f90
! Test for the ISNAN intrinsic
!
! { dg-do run }
! { dg-options "-pedantic-errors -mieee" { target sh*-*-* } }
!
implicit none
real :: x
x = -1.0
x = sqrt(x)
if (.not. isnan(x)) call abort
www.eeworm.com/read/366702/2877560
f90 import4.f90
! { dg-do run }
! Test for import in modules
! PR fortran/29601
subroutine bar(r)
implicit none
integer(8) :: r
if(r /= 42) call abort()
r = 13
end subroutine bar
subroutine foo(a)
implici
www.eeworm.com/read/366702/2877605
f90 char_length_9.f90
! { dg-do compile }
! Test the fix for a regression caused by the first fix of PR31879.
! Reported by Tobias Burnus
!
MODULE input_val_types
IMPLICIT NONE
INTEGER, PARAMETER :
www.eeworm.com/read/366702/2877610
f03 c_ptr_tests_13.f03
! { dg-do compile }
! Ensure that the user cannot call the structure constructor for one of
! the iso_c_binding derived types.
!
! PR fortran/33760
!
program main
use ISO_C_BINDING
implicit non
www.eeworm.com/read/366702/2877650
f90 interface_abstract_1.f90
! { dg-do compile }
!
module mod_interf_abstract
implicit none
abstract interface :: one ! { dg-error "Syntax error in ABSTRACT INTERFACE statement" }
end interface ! { dg-error "Expecting END MODULE
www.eeworm.com/read/366702/2877655
f90 private_type_10.f90
! { dg-do compile }
! { dg-options "-std=f95" }
!
! PR fortran/34438
!
! Check that error is not issued for local, non-module
! variables.
!
! Contributed by Sven Buijssen
!
module demo
implicit non
www.eeworm.com/read/366702/2877679
f90 integer_exponentiation_4.f90
! { dg-do compile }
! { dg-options "" }
program test
implicit none
!!!!!! INTEGER BASE !!!!!!
print *, 0**0
print *, 0**1
print *, 0**(-1) ! { dg-error "Division by zero" }
print *, 0**(hug
www.eeworm.com/read/366702/2877724
f90 unpack_zerosize_1.f90
! { dg-do run }
! PR 32217 - unpack used to crash at runtime with a zero-sized
! array. Test case submitted by Jaroslav Hajek.
program bug_report
implicit none
integer,parameter:: rp =