blob: d804bfada1b4d53bd8750a53b47e095fcba9bf9a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do run }
!
! PR fortran/27997
!
! Ensure that :: is present when a typespec is deduced.
!
PROGRAM test
INTEGER :: array(1)
INTEGER = 42
array = [ INTEGER ]
IF (array(1) /= 42) THEN
CALL abort()
END IF
END PROGRAM test
|