[Bug fortran/104927] Invalid array size specification accepted

["kargl at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org ---
A sure that code is invalid.  F2018, p. 92.

The type declaration statement also specifies the attributes whose keywords
appear in the attr-spec, except that the DIMENSION attribute can be specified
or overridden for an entity by the appearance of array-spec in its entity-decl,
...

Modifying your code to


  program test_invalid_shape

  implicit none

  integer, dimension(3,3) :: a(4)
  integer, dimension(3)   :: b(2,2)
  integer, dimension(3,3) :: c(6,6)

  print *, 'shape(a) = ',shape(a) 
  print *, 'shape(b) = ',shape(b) 
  print *, 'shape(c) = ',shape(c) 

  end program test_invalid_shape        

gives

 shape(a) =            4
 shape(b) =            2           2
 shape(c) =            6           6

which is in line with the words from the Fortran standard.