代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876443
f90 alloc_comp_constraint_5.f90
! { dg-do compile }
! Check that ALLOCATABLE components aren't allowed to the right of a non-zero
! rank part reference.
program test
implicit none
type :: foo
real, allocatable :: ba
www.eeworm.com/read/366702/2876478
f90 func_assign.f90
! { dg-do compile }
!
! PR fortran/31559
! Do not allow assigning to external functions
!
! Contributed by Steve Kargl
!
module mod
implicit none
contains
intege
www.eeworm.com/read/366702/2876605
f90 enum_3.f90
! { dg-do compile }
! Program to test ENUM parsing errors
program main
implicit none
enum, bind (c)
enumerator :: red, black = 2.2 ! { dg-error "initialized with integer expression" }
e
www.eeworm.com/read/366702/2876662
f90 function_kinds_2.f90
! Tests the fix for PR33334, in which the TYPE in the function
! declaration cannot be legally accessed.
!
! Contributed by Tobias Burnus
!
module types
implicit none
type t
www.eeworm.com/read/366702/2876781
f90 enum_2.f90
! { dg-do compile }
! Program to test ENUM parsing errors
program main
implicit none
enum, bind (c)
enumerator :: red, black
integer :: x ! { dg-error "Unexpected data declaration" }
www.eeworm.com/read/366702/2876862
f90 boz_3.f90
! { dg-do run }
! { dg-options "-std=gnu" }
! Test that the BOZ constant on the RHS, which are of different KIND than
! the LHS, are correctly converted.
!
program boz
implicit none
integer(1)
www.eeworm.com/read/366702/2876901
f90 allocatable_dummy_2.f90
! { dg-do compile }
! Check a few constraints for ALLOCATABLE dummy arguments.
program alloc_dummy
implicit none
integer :: a(5)
call init(a) ! { dg-error "must be ALLOCATABLE" }
contai
www.eeworm.com/read/366702/2876975
f90 namelist_42.f90
! { dg-do run }
! { dg-options "-mieee" { target sh*-*-* } }
!
! PR fortran/34427
!
! Check that namelists and the real values Inf, NaN, Infinity
! properly coexist.
!
PROGRAM TEST
IMPLICIT NONE
www.eeworm.com/read/366702/2877078
f pr29067.f
! { dg-do compile }
! PR fortran/29067
implicit none
integer :: n, i
character(len=16),parameter :: s = "", s2 = "1234567890123456"
i = 0 ; n = 9
print *, s(
www.eeworm.com/read/366702/2877124
f03 binding_label_tests_15.f03
! { dg-do compile }
! Verify that an error is correctly reported if multiple identifiers are given
! with a bind(c) statement that has a NAME= specifier.
module m
use iso_c_binding
implicit none