! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
module module_before_1
end
module module_before_2
end
block data block_data_before_1
end
block data block_data_before_2
end
subroutine explicit_before_1(a)
real, optional :: a
end
subroutine explicit_before_2(a)
real, optional :: a
end
subroutine implicit_before_1(a)
real :: a
end
subroutine implicit_before_2(a)
real :: a
end
function explicit_func_before_1(a)
real, optional :: a
end
function explicit_func_before_2(a)
real, optional :: a
end
function implicit_func_before_1(a)
real :: a
end
function implicit_func_before_2(a)
real :: a
end
program test
external justfine ! OK to name a BLOCK DATA if not called
!WARNING: The global entity 'module_before_1' corresponding to the local procedure 'module_before_1' is not a callable subprogram
external module_before_1
!WARNING: The global entity 'block_data_before_1' corresponding to the local procedure 'block_data_before_1' is not a callable subprogram
external block_data_before_1
!WARNING: The global subprogram 'explicit_before_1' should not be referenced via the implicit interface 'explicit_before_1'
external explicit_before_1
external implicit_before_1
!WARNING: The global subprogram 'explicit_func_before_1' should not be referenced via the implicit interface 'explicit_func_before_1'
external explicit_func_before_1
external implicit_func_before_1
!WARNING: The global entity 'module_after_1' corresponding to the local procedure 'module_after_1' is not a callable subprogram
external module_after_1
!WARNING: The global entity 'block_data_after_1' corresponding to the local procedure 'block_data_after_1' is not a callable subprogram
external block_data_after_1
!WARNING: The global subprogram 'explicit_after_1' should not be referenced via the implicit interface 'explicit_after_1'
external explicit_after_1
external implicit_after_1
!WARNING: The global subprogram 'explicit_func_after_1' should not be referenced via the implicit interface 'explicit_func_after_1'
external explicit_func_after_1
external implicit_func_after_1
call module_before_1
!ERROR: 'module_before_2' is not a callable procedure
call module_before_2
call block_data_before_1
!ERROR: 'block_data_before_2' is not a callable procedure
call block_data_before_2
call explicit_before_1(1.)
!ERROR: References to the procedure 'explicit_before_2' require an explicit interface
!BECAUSE: a dummy argument has the allocatable, asynchronous, optional, pointer, target, value, or volatile attribute
call explicit_before_2(1.)
!WARNING: If the procedure's interface were explicit, this reference would be in error
!BECAUSE: Dummy argument 'a=' (#1) is not OPTIONAL and is not associated with an actual argument in this procedure reference
call implicit_before_1
!WARNING: If the procedure's interface were explicit, this reference would be in error
!BECAUSE: Dummy argument 'a=' (#1) is not OPTIONAL and is not associated with an actual argument in this procedure reference
call implicit_before_2
print *, explicit_func_before_1(1.)
!ERROR: References to the procedure 'explicit_func_before_2' require an explicit interface
!BECAUSE: a dummy argument has the allocatable, asynchronous, optional, pointer, target, value, or volatile attribute
print *, explicit_func_before_2(1.)
!WARNING: If the procedure's interface were explicit, this reference would be in error
!BECAUSE: Dummy argument 'a=' (#1) is not OPTIONAL and is not associated with an actual argument in this procedure reference
print *, implicit_func_before_1()
!WARNING: If the procedure's interface were explicit, this reference would be in error
!BECAUSE: Dummy argument 'a=' (#1) is not OPTIONAL and is not associated with an actual argument in this procedure reference
print *, implicit_func_before_2()
call module_after_1
call module_after_2
call block_data_after_1
call block_data_after_2
call explicit_after_1(1.)
!ERROR: References to the procedure 'explicit_after_2' require an explicit interface
!BECAUSE: a dummy argument has the allocatable, asynchronous, optional, pointer, target, value, or volatile attribute
call explicit_after_2(1.)
!WARNING: If the procedure's interface were explicit, this reference would be in error
!BECAUSE: Dummy argument 'a=' (#1) is not OPTIONAL and is not associated with an actual argument in this procedure reference
call implicit_after_1
!WARNING: If the procedure's interface were explicit, this reference would be in error
!BECAUSE: Dummy argument 'a=' (#1) is not OPTIONAL and is not associated with an actual argument in this procedure reference
call implicit_after_2
print *, explicit_func_after_1(1.)
!ERROR: References to the procedure 'explicit_func_after_2' require an explicit interface
!BECAUSE: a dummy argument has the allocatable, asynchronous, optional, pointer, target, value, or volatile attribute
print *, explicit_func_after_2(1.)
!WARNING: If the procedure's interface were explicit, this reference would be in error
!BECAUSE: Dummy argument 'a=' (#1) is not OPTIONAL and is not associated with an actual argument in this procedure reference
print *, implicit_func_after_1()
!WARNING: If the procedure's interface were explicit, this reference would be in error
!BECAUSE: Dummy argument 'a=' (#1) is not OPTIONAL and is not associated with an actual argument in this procedure reference
print *, implicit_func_after_2()
end program
block data justfine
end
module module_after_1
end
!ERROR: 'module_after_2' is already declared in this scoping unit
module module_after_2
end
block data block_data_after_1
end
!ERROR: BLOCK DATA 'block_data_after_2' has been called
block data block_data_after_2
end
subroutine explicit_after_1(a)
real, optional :: a
end
subroutine explicit_after_2(a)
real, optional :: a
end
subroutine implicit_after_1(a)
real :: a
end
subroutine implicit_after_2(a)
real :: a
end
function explicit_func_after_1(a)
real, optional :: a
end
function explicit_func_after_2(a)
real, optional :: a
end
function implicit_func_after_1(a)
real :: a
end
function implicit_func_after_2(a)
real :: a
end
Codebase Browser
llvm