https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71859
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
Somehow detected when being a bit more explicit :
$ cat z3.f90
program p
implicit none
real :: s = 1.0
real :: x
call s(1)
x = abs(s)
print *, x
end
subroutine s(n)
implicit none
integer :: n
print *, n
end
$ gfortran-7-20160710 z3.f90
z3.f90:3:12:
real :: s = 1.0
1
Error: 's' at (1) is not a VALUE
z3.f90:3:12:
real :: s = 1.0
1
z3.f90:5:12:
call s(1)
2
Error: 's' at (1) has a type, which is not consistent with the CALL at (2)
z3.f90:6:11:
x = abs(s)
1
Error: 'a' argument of 'abs' intrinsic at (1) must be a numeric type
