------- Comment #1 from P dot Schaffnit at access dot rwth-aachen dot de  
2007-05-31 12:47 -------

More weird stuff with the following...

Philippe

subroutine Test ( Verbose, Position )
logical, intent(in) :: Verbose
integer, intent(in) :: Position
integer, parameter  :: Anchor = 666, Cut_off = 3
if ( Verbose ) ) then
write(*,*) "Been there, got the tee-shirt!"
endif
if ( ( Verbose ) .and. ( abs ( Position - Anchor ) le. Cut_off ) ) then
write(*,*) "Been there, got the tee-shirt!"
endif
return
end subroutine Test


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32151

Reply via email to