16 lines
376 B
Fortran
16 lines
376 B
Fortran
|
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
||
|
|
program p
|
||
|
|
type t(k,n)
|
||
|
|
integer, kind :: k
|
||
|
|
integer(k), len :: n
|
||
|
|
!CHECK: warning: INTEGER(1) addition overflowed
|
||
|
|
integer :: c = n + 1_1
|
||
|
|
end type
|
||
|
|
!CHECK: in the context: instantiation of parameterized derived type 't(k=1_4,n=127_1)'
|
||
|
|
print *, t(1,127)()
|
||
|
|
end
|
||
|
|
|
||
|
|
!CHECK: PRINT *, t(k=1_4,n=127_1)(c=-128_4)
|
||
|
|
|
||
|
|
|