Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/warn_implicit_procedure_1.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-Wimplicit-procedure" } ! PR fortran/22552 ! Check for correct -Wimplicit-procedure warnings. MODULE m CONTAINS SUBROUTINE my_sub () END SUBROUTINE my_sub INTEGER FUNCTION my_func () my_func = 42 END FUNCTION my_func END MODULE m SUBROUTINE test (proc) IMPLICIT NONE CALL proc () ! { dg-bogus "is not explicitly declared" } END SUBROUTINE test PROGRAM main USE m EXTERNAL :: ext_sub EXTERNAL :: test INTEGER :: ext_func CALL ext_sub () ! { dg-bogus "is not explicitly declared" } PRINT *, ext_func () ! { dg-bogus "is not explicitly declared" } PRINT *, implicit_func () ! { dg-bogus "is not explicitly declared" } CALL my_sub () ! { dg-bogus "is not explicitly declared" } PRINT *, my_func () ! { dg-bogus "is not explicitly declared" } PRINT *, SIN (3.14159) ! { dg-bogus "is not explicitly declared" } CALL undef_sub (1, 2, 3) ! { dg-warning "is not explicitly declared" } ! Can't check undefined function, because it needs to be declared a type ! in any case (and the implicit type is enough to not trigger this warning). END PROGRAM