blob: e24bfe0a2987a4f428d14b3087ee2dfa4bd28e02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
! Tests the fix for PR29422, in which function results
! were not tested for suitability in IO statements.
!
! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
!
Type drv
Integer :: i
Integer, allocatable :: arr(:)
End type drv
print *, fun1 () ! { dg-error "cannot have ALLOCATABLE" }
contains
Function fun1 ()
Type(drv) :: fun1
fun1%i = 10
end function fun1
end
|
