This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/33818] [Regression 4.3] Bogus error "Variable 'str' is used at (1) before the ENTRY statement"
- From: "burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 19 Oct 2007 15:15:19 -0000
- Subject: [Bug fortran/33818] [Regression 4.3] Bogus error "Variable 'str' is used at (1) before the ENTRY statement"
- References: <bug-33818-13404@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #3 from burnus at gcc dot gnu dot org 2007-10-19 15:15 -------
Slightly further reduced test:
subroutine ExportZMX(lu)
implicit none
integer :: lu
interface
function UpperCase(str)
character(*),intent(in) :: str
character(len(str)) :: UpperCase ! Rejected
! character(1) :: UpperCase ! Works
end function UpperCase
end interface
character, parameter :: UNAME ='X'
write(lu,'(a)') 'UNIT '//UpperCase(UNAME) ! Rejected
! write(lu,'(a)') UpperCase(UNAME) ! Works
entry ExportSEQ(lu)
end
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
OtherBugsDependingO| |32834
nThis| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33818