Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/derived_function_interface_1.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! Tests the fix for PR29634, in which an ICE would occur in the ! interface declaration of a function with an 'old-style' type ! declaration. When fixed, it was found that the error message ! was not very helpful - this was fixed. ! ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> ! module kinds type foo integer :: i end type foo end module type(foo) function ext_fun() use kinds ext_fun%i = 1 end function ext_fun use kinds interface fun_interface type(foo) function fun() use kinds end function fun end interface interface ext_fun_interface type(foo) function ext_fun() use kinds end function ext_fun end interface type(foo) :: x x = ext_fun () print *, x%i contains type(foo) function fun() ! { dg-error "already has an explicit interface" } end function fun ! { dg-error "Expecting END PROGRAM" } end