[Bug fortran/84778] New: Issue with character arguments of specified length (does not compile)

[david.applegate at woodplc dot com]

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

            Bug ID: 84778
           Summary: Issue with character arguments of specified length
                    (does not compile)
           Product: gcc
           Version: 7.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: david.applegate at woodplc dot com
  Target Milestone: ---

Pass a character "a"  into a subroutine with an additional argument integer "b"
which specifies its length.  This does not compile if integer "b" is declared
after character "a" in the subroutine. See below

program test

  implicit none
  integer, parameter :: b = 5
  character(len=b) :: a

  a = "hello"

  write(*,*)a//" from main program"

  call testsub(a,b)

contains

  subroutine testsub(a,b)

    ! integer, intent(in) :: b   ! if we put declaration of b here instead it
compiles ok
    character(len=b), intent(in) :: a
    integer, intent(in) :: b 

    write(*,*)a//" from testsub"

  end subroutine testsub
end program test