| ! { dg-do compile } | |
| ! Tests the fix for PR25087, in which the following invalid code | |
| ! was not detected. | |
| ! | |
| ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
| ! | |
| SUBROUTINE s(n) | |
| CHARACTER(LEN=n), EXTERNAL :: a ! { dg-error "must have an explicit interface" } | |
| interface | |
| function b (m) ! This is OK | |
| CHARACTER(LEN=m) :: b | |
| integer :: m | |
| end function b | |
| end interface | |
| write(6,*) a(n) | |
| write(6,*) b(n) | |
| write(6,*) c() | |
| contains | |
| function c () ! This is OK | |
| CHARACTER(LEN=n):: c | |
| c = "" | |
| end function c | |
| END SUBROUTINE s | |