public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/110350] New: Intrinsic handling inside nested associate blocks
@ 2023-06-21 16:39 rimvydas.jas at gmail dot com
  2023-06-21 17:55 ` [Bug fortran/110350] " kargl at gcc dot gnu.org
  0 siblings, 1 reply; 2+ messages in thread
From: rimvydas.jas at gmail dot com @ 2023-06-21 16:39 UTC (permalink / raw)
  To: gcc-bugs

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=110350

            Bug ID: 110350
           Summary: Intrinsic handling inside nested associate blocks
           Product: gcc
           Version: 14.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: rimvydas.jas at gmail dot com
  Target Milestone: ---

$ cat test_iargc.f90 
program foo
implicit none
integer :: iargc
integer :: z

 associate(x=>z)
  associate(y=>z)
   if(iargc().lt.5) stop 5
  end associate
 end associate
end program
$ gfortran -Wall -Wextra test_iargc.f90 
test_iargc.f90:8:6:

    8 |    if(iargc().lt.5) stop 5
      |      1
Error: 'iargc' at (1) is not a function

Seems behavior almost the same down to gfortran-4.8
Removing single nested unrelated associate block results in undefined reference
to iargc_()
Removing optional 'integer :: iargc' kind declaration works.

^ permalink raw reply	[flat|nested] 2+ messages in thread
end of thread, other threads:[~2023-06-21 17:55 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-06-21 16:39 [Bug fortran/110350] New: Intrinsic handling inside nested associate blocks rimvydas.jas at gmail dot com
2023-06-21 17:55 ` [Bug fortran/110350] " kargl at gcc dot gnu.org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).