On Sun, May 31, 2015 at 11:36:17PM +0200, Thomas Koenig wrote:
>
> The second part catches the case when the user supplies more
> digits than appropriate for the number. More often than not,
> this is a KIND error.
>
Does the above issue warnings for
cat consts.def
real(knd), parameter :: pi = 3.1415926535897932384626433832795029_knd
cat foo.f90
module foomod
interface foo
module procedure foo4, foo8, foo10, foo16
end interface foo
contains
subroutine foo4()
integer, parameter :: knd = 4
include 'consts.def'
! do something with pi
end subroutine
subroutine foo8()
integer, parameter :: knd = 8
include 'consts.def'
! do something with pi
end subroutine
subroutine foo10()
integer, parameter :: knd = 10
include 'consts.def'
! do something with pi
end subroutine
subroutine foo16()
integer, parameter :: knd = 16
include 'consts.def'
! do something with pi
end subroutine foo16
end module foomod
If warnings occur, then IMHO the patch cannot be committed
in its current form.
--
Steve
